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,1[TL FPYOIA 

(THIS IS THE FLOPPY DIAGNOSTIC 

FLOPPY CHECK OUT PROCEDURE 

!, IN QRgER TO PROPERLY CHECKOUT THE FLOPPY THESE STEPS 
SHDULU BE FOLLOWED IN THE ORDER THAT THEY ARE LISTED 
BEFORE RUNNING THE DIAGNOSTIC. 

A) CHECK MSTCK CHASTER CLOCK) FOR 3MHZ CLOCK U36 PIN 3 
2S0NS DURATION, S0NS LOH,208NS HIGH 

8) CHECK WROATA- (WRITE DATA NOT) U18 PIN I FOR A HIGH 

C) WITH DISKETTE IN FLOPPY AND OOOR CLOSEO CHECK INOEX 
U144 PIN S 

D) CHECK RDUR (RIGHT DEVICE UNIT READY) AND LDUR 
(LEFT DEVICE UNIT READY) AT U36 PIN 8 AND 6 FOR A LOW, 

I E) CHECK ROCP (READ DATA CLOCK PULSE) AND RDDP (READ OAT 
DATA PULSE) U»l PIN 3 AND 4 

F) CHECK THAT ALL COMMAND REGISTER LINES ARE LOW USS AND 

G) CHECK RDEN (READ ENABLE) US1 PIN 8 FOR A LOW. 

H) FOR NOVA COMPUTERS INSURE THAT DATA LINES ARE HIGH BU 
AT *5 VOLTS, 

i) load the diagnostic 
2, how to run the olagnostic 

2.1) starting address is 200 restart address is 201, 

2.2) after message asking for device » type 
device code, drive «,« of drives to be tested 

example! type device « (cr) 33 

type drive » to be tested cci») 
type » of drives to be tested (crj 2 

device code is 33 
start with drive 
test 2 drives 

2.3) if floppy is running properly no messages will be 
printto except ««end of pass x 

2.4) if errors are printed the test « mill be printed at 

the eno of the error message, 

2.5) in order to make it easier to interperet the error 
messages there is documentation at the front of each tes 
to help in the understanding of what is being done. 

1. mo* to use the command string interpreter 
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3.1) TYPE AN "I" ON THE TELETYPE WHILE THE PROGRAM IS RU 
MESSAGE HILL BE PRINTED OUT) 

ENTER COMMAND STRING 

CO"M AND, UNITW, PATTERN, TRACK*, SECTOR* (CR) 

TYPE COMMAND AS (READ, OR 5EAK,0R WRITE.! 

TYPE UNIT » AS (S, OH 1,) 

TYPE PATTERN AS CANY COMBINATION OP NUMBERS FROM 8-17777 

TYPE TRACK # AS (ANY COMBINATION OF NUMBERS FROM 8-114.) 

TYPE SECTOR * AS (ANY COMBINATION OF NUMBERS FROM 8-7 (CR 

IF YOU "ANT TO RESTART THE PROGRAM TYPE »R 

•••USE ONLY AFTER THE COMPLETE COMMAND STRING MA 
ENTERED. 

4, HO* TO USE THE FUNCTION INTERPRETER 

4.1) TYPE A »F WHILE THE PROGRAM IS RUNNING 
MESSAGE KILL PRINT! 

TYPE DESIRED FUNCTION (FUNCCS OR C OR) (CR) 

TYPE FUNC»(D0A,D0B,DIA,DI8,0IC) 

IF YOU KANT A START PULSE WITH THE FUNCTION OR A CLEAR 

PULSE WITH THE FUNC TION TYPE A S OR C KITH THE FUNCTION 

TO CONTINUE THE PROGRAM TYPE A «R TO RESTART 



FILENAME • SuPAK 



SWITCH SETTINGS 

LOCATION "SWREG" IS USED TO SELECT THE PROGRAM OPTIONS 
(NOT SYSTEM CONFIGURATION). WHILE RUNNING UNDER DTOS, 
THIS LOCATION WILL BE LOADED BY THE MONITOR, 
HOWEVER UNOER STAND ALONE AND PROGRAM LOAD MOOES THIS 
LOCATION WILL BE SET ACCORDING TO THE ANSWERS SUPPLIED 
BY THE OPERATOR. IN ANY CASE THE OPTIONS CAN BE CHANGED 
OR VERIFIED BY USING ONE OF THE COMMANDS GIVEN IN SEC. 
5.2 



SWITCH OPTIONS 

DIFFERENT BITS AND THEIR INTERPRETATION AT LOCATION 

•SWREG" IS AS FOLLOWSI 



BIT 

1 

2 



OCTAL 
VALUE 



BINARY 

VALUE 



INERPRETATION 



LOOP ON ERROR 

SKIP LOOPING ON ERROR 

PRINT TO CONSOLE 

ABORT PRINT OUT TO CONSOLE 
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5.2.1 



3 2 PRINT DETAILED ERROR ON THE 

SELECTED DEVICE/DEVICES 
10808 1 ONLY X FAILURE REQUIRED 

4 8 ALLOW END OF PASS PRINT OUT 
848198 1 SUPPRESS END OP PASS PRINT OUT 

5 8 DO NOT PRINT ON THE LINE PRINTER 
82888 1 PRINT ON THE LINE PRINTER 

8 8 DO NOT HALT ON ERROR 

81888 1 HALT ON ERROR 

7 8 DO NOT PRINT PASSING OF 

EACH TEST ON PRINTING DEVICE 
88488 1 PRINT PASSING OF EACH TEST 

SWITCH CDHMANOS 

ONCE THE PROGRAM STARTS EXECUTING THE STATE OF ANY OP 
THE BITS CAN BE CHANGEO BY HITTING KEYS 1 THROUGH 6, THE 
PROGRAM WILL CONTINUE RUNNING AFTER UPDATING THE OPTIONS 
EACH KEY WILL COMPLEMENT THE STATE OP THE BIT AFFILIAT* 
ED WITH IT, THUS BIT 4 CAN BE ALTERED BY HITTING KEY 4. 
SETTIN DF ANY BIT OF LOCATION "SWREG" MILL SET BIT I. 
(DEFAULT MODE IS DEFINED At ALL BITS OP SNREG BET TO B) 
THE PROGRAM CAN BE LOCKED INTO SWITCH MODIFICATION MODE 
BY TYPING A 8, IN WHICH CASE MORE THAN ONE BITS CAN BE 
CHANGEO BEFORE THE CONTROL IB ALLOWEO TO RETURN TO THE 
HAIN PROGRAM. 



OTHER COMMANDS 

"CR" A "RETURN" CAN BE TYPED TO CONTINUE THE PROGRAM 
AFTER ITS LOCKED IN A SWITCH MODIFICATION MODE 

• THIS COMMAND GIVEN AT ANY TINE WILL RESET 'SWREG 

TO DEFAULT MODE AND RESTART THE PROGRAM, 

*R THIS COMMAND GIVEN AT ANY TIME WILL RESTART THE 
PROGRAM. SWITCHES ARE LEFT WITH THE VALUES THEY 
HAD BEFORE THE COMMANO WAS ISSUED. 

«0 THIS COWHAND GIVEN AT ANY TIME WILL CAUSE THE 
PROGRAM CONTROL TO GO TO ODT (SEE SEC, S) 

as PRINT THE SUMMARY OF ERRORS ACCUMULATED SO FAR. 

M THIS COHMANO GIVEN AT ANY TIME WILL PRINT THE 
CURRENT OPERATING MODES, 



ERROR MESSAGES 

ERRORS ARE FIRST REPORTED WITH A MESSAGE INDICATING 
WHAT THE PROBLEM IS. THEN THE ACCUMULATORS ARE PRINTED! 

CRY AC0 AC1 AC2 AC3 PC 

REFER TO THE ERROR PC IN THE LISTING FOR A DISCRETION 



0005 FPYDI 
01 



IN THE ACCUMULATORS, 



B00000 FPf«B 



IB006 FPYDI 
01 

as 

03 

04 

at 

96 B00000 .LUC 

17 00000 1510026 DIKT 

tIB BB001 000000 

09 BVI9B2B .LUC 20 

IB 00fc20 000000 8UKPTI B 

11 00021 000000 CBIJFPl B 

12 ?00045 .LDC 45 
Id 00045 000060 EG1.S 

14 00046 0P00B0 
16 00047 005630 EKR? 

16 00B5B 000010 ,Bi.K 8. 

17 0BB6B 000000 EG(>SI 

18 B0061 000000 

19 00062 00B000 B 

20 00063 000000 B 

21 00064 0000U0 

22 B0066 000000 
2) BB066 000B00 BACK! 
24 00067 000000 RTNHI 
26 00070 0B000B RTTNI 

26 00071 B00000 RTN7NI 

27 00072 000000 NTMCPl 

26 00073 006614 IITRI ITR7R 

29 00074 003663 IERME1 ERMES 

30 00076 003322 IKF'REI RPRE 

31 00076 003304 INRSEI WRSET 

32 00077 003537 IDFII ORI 

33 00100 002742 ISEAKl SEAK 

34 0B101 BBS423 ISETI SETtL 
36 00102 0B310S IR1TES DORITt 

36 001B3 0B3221 IREADI REED 

37 00104 009630 IEFKI ERR? 
36 00106 003257 ITlMEi TIME 

39 00106 003555 IERCKI ERRCK 

40 00107 005765 IMES7SS NES7S 

41 00110 005765 IMES5: HES7S 

42 00111 003945 IUCOAl OOOA 

43 B0112 002333 ICCNTl CtlMTB 

44 00113 002343 ICCMY: COMV-1 

45 00114 000000 SECEC: 

46 00119 000000 FPVKC: 



(COMPARE BUFFER POINTER 

(COMPARE BUFFER POINTER 



(RETURN POINTER 

(RETURN POINTER 

(RETURN POINTER 

(RETURN POINTER 

(RETURN FOR HRITE/REAO COMPARE 

(ERROR COUNTER POINTER 

(ERROR MESSAGE POINTER 

(POINTER TO READ PREAMBL 
(POINTER TO SET NRITE RO 
(POINTER TO DRIVE SETUP 
(POINTER TO SEEK TRACK 



(POINTER TO READ ROUTINE 
(POINTER TO ERROR HANDLE 
(HAIT FOR DONE ROUTINE 
(CHECK ERROR BITS 
(TYPE A MESSAGE 
(TVPE A MESSAGE 
(POINTER TO OOAS INSTRUCTION 
(POINTER TO CCIMMANO TABLE 
(POINTER TO COMMAND FUNCTION STO 
(SECTOR ERROR DETECTED C 
(FLOPPY NOT READY COUNT 
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32 00135 
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DI 
**PI(>00& 



FLAGSl 
(/ III III It 
)/ / 1 / 
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(FLAGS 

mm 1 1 
I 10/ 1 
mum 
mum 
ilium 
mum 
mum 
mum 
mum 
iimm 
miiiu 

IIIIIIU 
IIIIIUI 
IIIIIIU 



STORAGE 
lllllll 
1/ 12/ 
llllll 

mill 
iiiiii 
mm 
nun 
mill 

llllll 

mm 
mill 
iiiiii 
mm 
iiiiii 



000000 
000007 
177770 
000023 
000017 
000053 
0B0000 
001(000 
003346 
006303 
003332 
007377 
006776 
(107375 
000000 
000000 
000000 

000233 
000000 
000020 
000040 
000010 
000001 
000002 
000115 
000132 
052529 
000000 
177777 
146314 
000034 
000177 

100000 
040000 

020000 

010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 



FUN»Dl 

SECTSTI 

CN7I 

C23I 

C17I 

C42I 

TIMERI 

RC0UNT1 

IWCP2I 

ITINtOI 

INCPATi 

IRBUFI 

InBUFi 

6UFE0I 

RITFUNI 

TSTNHI 

OIFFI 

ILFUNI 

SETTLE: 

REDFUNI 

WITFUNI 

RDPAI 

STEPOUI 

STEPINI 

C77I 

C90I 

ALONZI 

BLANKI 

ONEZI 

PATHK1 

C1777I 

C1776I 

BIT0I 

BITll 

BIT2I 

BIT3I 

BIT4I 

B1T5I 

B1T6I 

BIT7I 

BIT8I 

BIT9I 

BIT10I 



WCPA2 

TIN70 

MCPAT 

RBUF 

BUF 

BUFND-1 
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177777 

146314 

34 

177 

100000 

040000 

020000 

010000 
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002000 

001000 

000400 

000200 
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000040 



(FUNCTION WORD SETUP STO 
ITEST SECTOR NUMBER 
(CONSTANT -10 
(CONTROL S CONSTANT 
(CONTROL CONSTANT 
(CONSTANT 42 
[TIMEING STORAGE 
(ROTATE COUNT 



IKRITE AND COMPARE PATTERNS PQIN 
(REAO BUFFER POINTER 
(WRITE BUFFER POINTER 
(BUFFER END 

(RIGHT FUNCTION STORAGE 
(TEST NUMBER STORAGE 

(DIFFERENCE STORAGE 
(ILLEAGLE FUNCTION 
(SETTLE FUNCTION 
(HEAD FUNCTION 
(WRITE FUNCTION 
(REAO PREAMBLE FUNCTION 
(STEP HEAD OUT FUNCTION 
(STEP HEAD IN FUNCTION 

(MAX NUMBER OF TRACKS 

(TIMING CONSTANT 
(ALTERNATING ONE'S 

(ALL ZEROS 

(ALL ONE'S 

(TRACK TEST PATTERN 

(SECTOR MASK 

(TRACK MASK 

(BIT REPRESENTATION 

(BIT 

(BIT 

(BIT 

(BIT 

(BIT 



1 REPRESENTATION 

2 REPRESENTATION 

3 REPRESENTATION 

4 REPRESENTATION 

5 REPRESENTATION 
(BIT 6 REPRESENTATION 
(BIT 7 REPRESENTATION 
(BIT S REPRESENTATION 
(BIT 9 REPRESENTATION 
(BIT 10 REPRESENTATION 



0008 FPYUI 

01 00172 U0i)020 BITll! 000020 

02 00173 300010 BIT12I 000010 

03 00174 1100004 BIT 131 000004 

04 00175 004002 BIT14I 000002 

05 00176 000001 BIT15I 000001 

06 00177 006776 IbUM BUF 
07 



(BIT 11 REPRESENTATION 
(BIT 12 REPRESENTATION 
(BIT 13 REPRESENTATION 
(BIT 14 REPRESENTATION 
(BIT 15 REPRESENTATION 
(POINTER TO BUFFER 



09 



10009 FPYOI 
91 

02 t.00200 

03 002(9!) U02217 

04 (10221 19132237 

05 00202 .1R0000 

36 00203 tetiiiga 

07 00204 00»0«0 

08 4)020!} £00000 

09 00206 003511 

10 00207 006042 

11 00210 006064 

12 00211 1006056 

13 00212 006032 

14 00213 006466 
19 00214 006906 

16 00219 1)09630 

17 00216 006203 

18 00217 000900 

19 00220 006410 

20 00221 006693 

21 00222 009367 

22 00223 000000 

23 00224 000000 

24 00229 U00000 
23 00226 000000 

26 00227 042104 

27 00230 047323 
26 00231 000006 
29 00232 002350 
3*s 00233 000111 

31 00234 000000 

32 00239 000000 

33 00236 000019 

34 00237 000371 
39 0024» 000000 

36 00241 002444 

37 00242 002434 

38 00243 060077 

39 00244 002741 

40 00243 002666 

41 00246 002643 

42 00247 002912 

43 00290 002344 

44 00251 002345 
43 H0252 002227 

46 00253 002320 

47 00254 002329 
46 00255 002343 

49 00256 003637 

50 00257 000000 
31 00260 000000 

52 00261 000000 

53 00262 000000 
34 00263 000000 
53 00264 000000 
96 00269 000000 
57 00266 000000 
56 00267 000000 

59 00270 000000 

60 00271 000602 



•LDC 200 






JMP 


•ISTANT 




JMP 


»IBtGN 


help: 







pass: 







AC37I 







SwREGl 







IINP7: 


SERVS 





ICRL7FI CRL7F 

IPDL7SI PDC7S 

IP0C7TI P0C7T 

IZ0C7TI Z0C7T 

IENT7RI ENT7R 

ICYC7EI CYC7E 

IERRT: ERR? 

ITYP7tl TYP7E 

ISTARTI START 



ISO TO START OF PROGRAM 
(RESTART PROGRAM 
(TEST STARTING ADDRESS 
(PASS CPUNT 
(STORAGE FOR ACJI 
(SWITCH REGISTER STORAGE 



IINPI 


INP7J 




IIOuTl 


00T7J 




ISUMI 


SUMME 




RfcTl 







TIMIT: 







RfcET: 







R7TM 







KDDl 


042104 




KOSI 


047523 




CFI 


6 


(CONTROL 


IFO«LI 


FOWL 




cc: 


"I 




NUDEVI 







COENTl 







CIS: 


15 




IBEGNI 


BEGN 




PASSTI 







IFUNX: 


FUEX 




IFNTBI 


FUNTB 




NOFUNI 


NJO CPU 




ItlFPED: 


8FPED 




IBFpat: 


BFPAT 




IOOPat: 


OOPAT 




ITEM 


TfcT 




ICOM1: 


CUMY 


I 


IC0M2! 


COMY*l 


1 


ICOMS) 


COMST 


1 


IGOUOI 


GUOUF 


1 


IGOOSl 


GOOS 


1 


ICOHE: 


COMEX 


1 


iseuer: 


SEQfcR 


1 


ERTS1I 





I 


COMREl 







UNITA: 





( 


SERCTl 







wpaT: 







ERBTCl 





1 


ILLFC: 





( 


WRFLCI 





1 


DCLATl 





( 


CKWUCl 





I 


IBGN1I 


BEGN1 





(TIMMER FOR HEAD LOADED 
(RETURN FOR SETTLE MEADS 
(RETURN POINTER FOR SEAK 



(ORIVE PASS COUNTER 



(POINTER FOR TRACK STORAGE 
(POINTER TO SECTOR STORAGE 
(POINTER TO COMMAND STRING ENTRY 
(POINTER TO GOOD RETURN FROM TUR 
(CORECT TuRMINATOR CHECK FOR TRA 
(POINTER TO COMMAND SIRING EXICU 
(SEQUIENCE ERROR POINTER 
(ERROR COUNTER FOR ERROR CHECK 

(DEVICE CODE STORAGE 



(ERROR BIT SET COUNT 
(ILLEAGLE FUNCTION COUNT 
(WRITE FAULT DETECTED COUNT 
(DATA CHANNEL LATENCY OETECTED C 
(CHEK WORD ERROR OETECTED COUNT 



0010 FPYDI 








01 00272 


000000 


DRI1 1 







32 00273 


003412 


ICPfcTl 


CPET 




03 00274 


001102 


ICHE2I 


CWE2 




04 00275 


0011 10 


ICHE6I 


CwE6 




05 00276 


002900 


PT?TI 


PTST8 




06 00277 


002590 


ITtLPl 


TETLP 




07 00300 


000000 


LP1M! 







06 00301 


002044 


IPI.BGI 


PLBGN 




09 00302 


000000 


LQ'iKDl 







10 00303 


000112 


CJI 


"J 




11 00304 


000019 


TETMXI 


15 




12 00305 


010126 


CWK91 


IS2 


RCOUNT 


13 00306 


002274 




JMP 


0ICWE2 


14 00307 


002275 




JHP 


0ICWE6 


19 


000500 


.LDC 500 





(LAST TEST # 

(INCREMENT COUNTER 
(CONTINUE WAITING FOR DIE 
(OIB NOT RESPONDING 



uen FPYOI 








01 




JSR 


P1TET 




02 




JSR 


•ICYCTE 


(60 TO CYCLE ON TEST ROUTINE 


ao 




SUB 


0,0 


(CLEAR *C0 


04 




ST* 


0.ERTS1 


|CLE*R ERTS1 


05 
07 


• •* 








08 bbsbb 


102400 start: 


SUB 


0.0 


(CLEAR »C2 


09 eusiri 


(140272 


ST* 


0,DRI1 


(CLEAR DRIVE 1 FLAG 


12 20502 


242234 


ST* 


0,NUDEV 


(CLEAR » OF DEVICES 


ll eeSBS 


B06U0 


JSN 


PIMtSS 


(ASK OPERATOR FOR DEVICE CODE 


12 20504 


203761 


NUMU 






13 20503 


006130 


JSR 


PITINTO 


(ACCEPT THE INPUT 


14 00306 


202772 


JMP 


ST»RT 


(1YPED » LETTER 


15 00527 


244261 


ST* 


1,UNIT* 


(SAVE THE DEVICE * 


16 U051(i 


006110 


JSR 


PIMESS 


(ASK FOR UNIT TO BE TESTED 


17 20511 


203150 


WHDR 






lb 2051! 


206130 


JSR 


PITINTO 


(GO GET THE N 


18 2051,1 


200765 


JhP 


ST»RT 


(ALPHA TYPED 


20 20514 


044272 


ST* 


1.DRI1 


(SAVE THE DRIVE « 


21 00515 


206110 


JSR 


PIMESS 


(ASK FOR « OF DRIVES TO BE TESTE 


22 00516 


203171 


HHDR 






25 00517 


206130 


J5R 


PITINTO 


(ACCEPT THE NUMBER 


24 20520 


222760 


JHP 


ST»RT 


IALPHA TYPED 


25 20521 


125225 


MOVZR 


1.1, SNR 


(WAS IT 1 OR 2 


26 20522 


202404 


JMP 


HRDK3 


11 


27 00523 


244234 


ST* 


l.NUOEV 


(IT WAS A 2 


26 22524 


126420 


SUB 


1,1 


(CLEAR AC0 


26 00525 


244272 WRDK4I 


ST* 


1.DRI1 


UNSURE THAT HE START ON ORIVE 


32 00526 


206101 MRDK3I 


JSR 


PI3ET 


(SETTLE THE DRIVE 


31 20527 


224133 


LD* 


l.IWBUF 


(GET WRITE BUFFER ADDRESS 


32 20530 


044177 


ST* 


l.IBUf 


(FIX BUFFER POINTER 


33 22531 


206103 


JSR 


PIREAD 


(READ TRACK SECTOR 1 


34 20532 


202000 









35 00533 


200021 


1 






36 00534 


177777 


-1 






37 00535 


226073 


10* 


l.PIITR 


(SEE IF AN ERROR HAS ENCOUNTERED 


36 20536 


125004 


MOV 


1,1, SIR 


(ANY ERRORS 


39 00537 


200420 


JMP 


NR0K6 


(YES 


42 22540 


206106 


JSR 


PIERCK 


(SEE IF ANY ERRORS 


41 00541 


224133 


LD* 


l.IWBUr 


(GET THE WRITE BUFFER ADDRESS 


42 00542 


244177 


ST* 


l.IBUF 


(SAVE IT 


43 00543 


226177 


LD* 


1,PIBUF 


(GET THE FIRST CHARACTERS 


44 00544 


232227 


LD* 


2.KDD 


(GET DO 


45 00545 


132415 


SUB* 


1,2, SNR 


(00 WE HAVE A MATCH 


46 20546 


202416 


JMP 


WROK 


(YES 


47 00547 


012177 


ISZ 


IBUF 


(NO BUT LETS CHECK THE NEXT FOR 


46 20552 


026177 


LD* 


l.PIBUF 


(GET SECOND WORD 


48 00551 


232230 


LD* 


2.KUS 


(GET OS 


50 00552 


132415 


sua* 


1,2.SNR 


(IS IT OS 


51 00553 


2004U 


JMP 


WROK 


(YES 


52 20554 


024157 


LD* 


1.BIT2 


(GET ORIVE 1 FLAG 


53 00555 


244116 


ST* 


I, FLAGS 


(SET DRIVE ONE FLAG ANYWAY 


54 20556 


202413 


JMP 


BEGN 


(GO START THE TESTS 


55 00557 


206110 WRDK6I 


JSR 


PIMESS 


(TYPE MESSAGE 


56 00562 


204366 


FLONG 




(FLOPPY NO GOOD 


57 20561 


206130 


JSR 


PITINTO 


(WAIT TO PRECEEB 


58 20562 


200775 


JMP 


WKDK6 


(NO ALPHA 


58 20563 


202406 


JMP 


BEGN 


(ACCEPT A CCR),C,J,l ),UF1 


52 00564 


206110 URDU! 


JSR 


PIMESS 


(TELL HIM TO CHANGE THE DISK 



2012 FPYUI 








01 22565 


004214 




LSOK 




02 20366 


226130 




JSR 


PITIN70 


03 20567 


202737 




JMP 


MR0K3 


04 00572 


202736 




JnP 


WR0K3 


05 




RES?Tl 






06 00571 


102420 


BEGNi 


SUB 


0,0 


07 00572 


242322 




ST* 


0.LPNM 


08 20573 


242257 




ST* 


0,ENT81 


08 20574 


224272 




LD* 


1.DRI1 


10 20575 
11 

12 00576 


125025 




MOV 


1,1, SNR 


242116 




ST* 


0, FLAGS 


13 20377 


240223 




ST* 


0,PA3S 


14 00600 


04«13fi 




ST* 


0,TSTNH 


IS 20601 


242235 




ST* 


0.COENT 


16 20602 


002401 


BEGNII 


JMP 


TST1 


17 











(ACCEPT A KEY 

(A KEY WAS MIT 

(MAKE SURE ITS A SCRATCH DISK 

(CLEAR AC0 
(0 THE LOOP * 
(CLEAR ERROR COUNTER 
(GET THE ORIVE INOICATOR 
(IF NOT ( LEAVE OEVICE 
(SET UP FOR ORIVE 1 



(CLEAR COMMAND ENTRY 
(GO DO THE TESTS 



I< 



aaejij »ibu« tsth 
i 
( 
( 

( 



0013 fpvui 
01 
02 

03 

04 

as 

06 
07 
BB 

at 
la 

ll 

12 00604 024205 

13 00605 290166 

14 00606 133414 

is ua607 naa4i5 

16 00610 006110 

17 02611 004455 
IB 01612 024261 
IV 0*613 006212 

20 00614 006110 

21 00615 004466 

22 00616 126400 

23 00617 034116 

24 00620 030167 
26 00621 1734(4 

26 00622 125400 

27 00623 006212 

28 00624 006278 STAT6I 
2B 00625 006213 

30 00626 000002 

31 00627 102400 

32 00630 040126 

33 00631 006111 STAT3I 

34 00632 060400 

35 00633 101103 

36 00634 0004)0 

37 00635 010126 
3B 00636 000773 
311 00637 006074 

40 00640 004267 

41 00641 010U5 

42 00642 060077 

43 00643 000415 

44 00644 020141 S1AT2: 

45 00645 006077 

46 00646 006111 

47 00647 061100 
4B 00650 0016105 
40 00651 006101 
50 

51 00652 101415 

52 00653 000403 

53 00654 006106 

54 00655 000404 

55 00656 006074 STATU 

56 00657 004566 

57 00660 006104 STA15I 

58 STAT4I 

59 0066} 006247 

60 00662 006214 



(TST*1 «CLEAR STATUS WORD AND TEST THAT NO ERROR BITS SET» 



ISZ T5TNM (ENTERINO A NEW TEST 

THIS TEST VERIFIES THAT THE FLOPPY IS READY. 
IF THE FLOPPY DOES NOT GO READY THE MESSAGE 
FLOPPY NOT REAOY IS PRINTED. IT ALSO VERIFIES 
THAT NO ERRORS ARE SET AFTER A START PULSE, 



iiiinnniinniniituitiintiiniuitntHiinnnntttnitii 



0014 FPYDI 

01 00663 102400 

02 00664 040257 
03 

04 

05 00665 

06 00666 

07 00667 

08 00670 

09 00671 

10 U0672 



0004(42 
000001 
020136 
024776 
122454 
006256 



TNI I 
ETH 



sue 

ST» 



JMP 

1 

LUA 
LUA 
SUBO* 
JSP 



0,11 
0.KRTS1 



0,TSTNM 
I, TNI 
1,0, SZR 

♦ISfcOER 



(CLEAR AC0 
(CLEAR ERTSI 



/CHECK THE PROGRAM FLO* 



LOA 

LOA 

AND* 

JMP 

JSR 

DKMES 

LDA 

JSR 

JSR 

DHMES 

sue 

LUA 

LDA 

AND* 

INC 

JSR 

JSR 

JSR 

2 

SUB 

STA 

JSR 

OIA 

MOVL 

JMP 

ISZ 

JMP 

JSR 

FPYND 

ISZ 

NIO 

JMP 

LDA 

JSK 

JSR 

OUAS 

JSR 

JSR 

INC* 

JMP 

JSR 

JMP 

JSR 

DDRER 

JSR 

LOOPS 

JSR 

JSR 



1,SNREG 
2,BIT7 
1,2, SZR 

STAT6 
PINESS 

l# UNITA 
PIZOCTT 
PIMFSS 

1,1 

3, FLAGS 
2, 9IT0 
3, 2, SZR 
1,1 

#IZOC?T 

PPTET 

»IENT?R 



0,RCOUNT 

PIDOOA 

0.FPY 

0,0, SNC 

STAT2 

RCOUNT 

STAT3 

PIERME 

FPYRC 

CPU 

STAT5 

0, SETTLE 

PIDRI 

♦IDUOA 

0.FPY 

PITIME 

PISET 

0,0, SNR 

STAT1 

PIERCK 

STAT4 

PIERME 

PIERR 

• ITET 
PICYC7E 



(GET THE SNITCH REGISTERS 

(GET SWITCH 7 

(IS 7 SET 

(YES SKIP TYPE HUT 

(PRINT HEADER 

(DISK « 

(GET THE DEVICE CODE 

(PRINT VALUE 

(PRINT MEAOER 

(DRIVE « 

(CLEAR »C0 

(SET THE FLAGS 

(GET THE DRIVE BIT 

(IS IT DRIVE 

(NO ITS DRIVE 1 

(PRINT THE TEST * 
(GO SET UP TEST 

(CLEAR AC0 

(SAVE IN COUNTER LOC 

(ISSUE FUNCTION 

(REAO FLOPPY STATUS 

(FLOPPY REAOY t 

(YES FLOP IS READY 

(INCREMENT COUNT 

(GO BACK AND LOOK FOR READY 

(REPORT FLOPPY NOT READY 

(INCREMENT FLOPPY NOT READY COUN 

(NO OP 

(GO TO CYCLE 

(GET READY TO SETTLE DOW 

(SET UP FOR CORRECT DRIVE 

(ISSUE FUNCTION 

(TELL THE DRIVE TO SETTL 

(WAIT FOR DONE 

(ISSUE SOMETHING BEFORE 

(REAOING STATUS 

(DID WE SET A RESPONCE 

>NO,REPORD DEVICE NOT RE 

(CHECK FOR ERRORS 

(CONTINUE TESTING 

(REPORT BEVICE NOT RESPO 

(PRINT THE AC'S 



(GO TO CYCLE ON TEST ROUTINE 



0015 FPYOI 


01 






42 






03 






04 






(85 


0067J 


010136 


et, 






07 






88 






ail 






lie 






11 






u 






13 






14 






15 






16 






17 






U 






18 






20 






21 






22 






23 






24 






25 






2t> 






27 






26 






2B 






30 






31 


00674 


006276 


32 


00675 


006213 


33 


00676 


000100 


34 


00677 


006100 


35 


00700 


0*0005 


36 


00701 


000000 


37 


00702 


006101 


36 


00703 


006111 


39 


00704 


060600 


4(8 


00705 


024160 


41 


00706 


107434 


42 


00707 


000414 


43 


00710 


006100 


44 


00711 


000000 


45 


00712 


000000 


46 


00713 


006101 


47 


00714 


024160 


46 


00715 


107434 


46 


00716 


000410 


50 


00717 


006074 


91 


00720 


003676 


52 


00721 


006104 


93 


00722 


000404 


54 


00723 


006074 


55 


00724 


004627 


56 


00725 


006104 


57 






56 


00726 


006247 


98 


00727 


006214 


SB 


0073a 


102400 



T3T#2 «TEST MEAD HOME BIT IN STATUS NORD» 



ST21 ISZ T4TNM (ENTERING * NEW TEST 

TEST THAT THE HEAD HOME BIT CAN BE OETETED 
AND THAT IT IS ACTUALLY ON TRACK 00, 
THE PROGRAM READS THE PREAMBLE TO VERIFIE THAT 
IT IS ACTUALLY ON 00, IF READ PREAMBLE IS NOT 
WORKING AN ERROR MESSAGE IS PRINTED 
(HEAD IS NOT MOVING OR OISK UNFORMATED) , 
THIS SAYS THAT I 

1) THE HEAD DID NOT MOVE PROPERLY 

2) THE OISK IS UNPORMATEO 

3) THE OIC FUNCTION IS NOT WORKING 

4) THE SAVE SIGNAL OID NOT SAVE THE HEADER ADDRE 

POSSIBLE PROBLEMS ARE! 

1] CHECK RP SIGNAL US5 PIN 7 (SHOULD GO HIGH 

WHILE ALL OTHER SIGNALS REMAIN LOW) 

2) VERIFY SAVE- AT U51 PIN 8 GOES LOW (STATIC HIGH) 
•••SAVE- IS A VERY NARROW SIGNAL AND IS HARD TO SEE 

3) CHECK SPDI AND SPCK AT U119 PIN 1 AND 6 

4) CHECK DIC IS HAPPENING AT U13B PIN 9 

uiiiuiHiiiiiiiiHiiiuiiiniuiiiiuiiiiiiiinininimiiit 



(PRINT THE TEST * 

(GO SETUP TEST 



HHM1I 



JSR 


PPTET 


JSR 


PIENTTR 


100 




JSR 


fISEAK 


5 









JSR 


PISET 


JSR 


♦IDOOA 


DIAC 


0,FPY 


LOA 


l.BITI 


ANDZ* 


0,1, SZR 


JMP 


HMM1 


JSR 


PISEAK 












JSR 


PISET 


LDA 


1,BIT1 


ANDZO 


0,1, SZR 


JMP 


.•10 


JSR 


PIEHME 


HDHMC 




JSR 


PIERR 


JMP 


.♦4 


JSR 


PIERME 


HDHHS 




JSR 


PIERR 


LOOPS 




JSR 


PITET 


JSR 


PICYC7E 


SUB 


0i0 



(GO SEEK A TRACK OTHER T 
(WE WILL USE TRACK 5 

(DO SDMTHINS TO BEABLE T 

(ISSUE FUNCTION 

(READ STATUS 

(GET BIT TO TEST HEAD HO 

(IS HEAD HOME? 

(YES HEAD HONE BIT IN ER 

(NO, OK SEEK HEAO HOME 

(TRACK 

(DO SOMTHING TO BE ABLE 

(GET BIT TO TEST HEAD HO 

(IS HEAD HOME NOW? 

(GO TO NEXT TEST 

(HEAD HOME NOT BEING OET 

(GO REPORT ERROR 
(GO TO NEXT TEST 
(HEAD HOME ALWAYS DETECT 

(GO REPORT ERROR 



(GO TO CYCLE ON TEST ROUTINE 
(CLEAR AC0 



0016 FPYDI 








01 00/31 040257 




STA 


0,ERTS1 


02 








&3 








04 








05 0073* 000402 




JMP 


.♦2 


06 d0733 000002 


TN2I 


2 




07 00734 020136 


ET2I 


LDA 


0.TSTNM 


06 00735 024776 




LOA 


1.TN2 


08 00736 122454 




SUBO* 


1,0, SZR 


10 00737 006256 




JSR 


PISEOER 



(CLEAR ERTS1 



(CHECK THE PROGRAM FLOW 



(TST#J 



0017 FPYDI 
01 
02 
03 

04 

05 00740 010136 TST3: 
0b i 

s)7 f 

iib i 

H9 , 

« I 

11 ( 

12 ( 

13 , 
t« I 
15 , 
lb , 

i' Mint. 

16 
IB 

20 00741 006276 

21 00742 006213 

22 00743 000100 

23 00744 102400 

24 0074b 040126 

26 00746 006111 HDLU6I 

26 00747 060400 

27 00750 024161 
2b 00751 107414 

28 00752 000402 

30 00753 000407 

31 00754 010126 H0LD4I 

32 00755 000771 
33 

34 00756 006074 

35 00757 004145 
3b 00760 006104 

37 00761 000436 

36 00762 020175 HDLD5I 

38 00763 024174 

40 00764 123000 

41 00765 100400 

42 00766 040126 

43 00767 020141 

44 00770 006077 

45 00771 006111 HOLD3: 
4b H0772 B61100 

47 00773 0«bl05 

48 00774 010126 
48 00770 000412 
50 

51 00776 006111 

52 00777 060400 

53 01000 024161 

54 01001 1H7414 

55 01002 000415 

56 01003 006074 

57 01004 005107 
56 01005 006104 

58 01006 000411 

60 01007 0B6111 HDL01! 



«TEST HEAD LOAD BIT> 



ISZ TSTNM (ENTERING A NEW TEST 

THIS TEST VERIFIES THAT THE HEAD LOAD BIT WORKS 
AND THAT IT SETS AFTER SIX HEAD COMMANDS. 

FIRST THE PROGRAM WAITS FOR THE HEAD LOAD BIT TO 
SO AWAY. IF THIS DOES NOT HAPPEN THE AN ERROR IS RE- 
PORTED .THEN A SETTLE COMMAND IS ISSUED ONE AT A TIME 
CHECKING THAT AFTER EVERY SETTLE TO SEE IF HEAD LOAO 
ofl It SET '» FT ER THE SIXTH HEAD LOAD THE PROGRAM WILL 
REPORT THAT THE HEAD IS NOT LOADED IP IT HASNIT SET. 
THE PROGRAM ALSU WILL REPORT AN ERRUR HP IT SETS BEFORE 
SIX SETTLES HAVE BEEN ISSUED. 

'ttttiiiitii/ntmtuiu/ittimniniintiiitiiiiiimn 

JSR PPTfcT (PRINT THE TEST * 

JSR »IEnT?R (SET UP THE TEST 

lBB (FOR 100 ITERATIONS 

SUB 0,0 (CLEAR ACS 

STA 0, RCOUNT (STORE IN COUNTER 

JSR FIDOOA (ISSUE FUNCTION 

D " »> F Pf (READ STATUS 

LOA 1.BIT2 (GET HEAD LOAO HIT 

AND* 0,1, SZR (HEAD LOAO SET 

JMP H0L04 (YES 

JMP H0LD5 IHO 

ISZ RCOUNT (INCREMENT COUNTER 

JMP HDLD6 (KEEP WAITING FUR HEAD LOAD 

(TO GO AWAY 

J5R HERME (TELL OPERATOR HEAD LOAD ALWAYS 
HDLOP 

JSR PIERR (00 REGULAR ERR MESS 

JMP HULU2 (GO TO LOOPS 

LOA 0,BIT14 (GET A 4 

LLA 1.BIT13 (GET A 4 

*U0 1,0 (ADO TO MAKE 6 

l " EG »»« (MAKE IT A NEGITIVE 6 

STA 0, RCOUNT (SAVE AT COUNTER 

LUA 0, SETTLE (GET A SETTLE FUNC 

JSR #IDRI (SET IT UP FOR CORRECT DRIVE 

JSR PIOOOA (ISSUE FUNCTION 

DOAS 0.FPY (SETTLE THE FLOPPY 

JSR PITIME (MIT FOR DONE 

ISZ RCOUNT (INCREMENT THE COUNTER 

JMP H0LD1 (GO SEE IF MEAD LOAO 

(SET ANY WAY 

JSR PIDOOA (ISSUE FUNCTION 

DI* B.FPY (READ THE STATUS 

LOA 1,BIT2 (GET HEAO LOAO BIT 

AND* 0,1, SZR (IS HEAD LOAO SET 

J"P HDLD2 (YES GO TO CYCLE 

JSR #IERMt (TELL OPERATOR THAT HEAD LOAD 

KNLOS (IS NOT SET AFTER 6 START PULSES 

JSR PIERR (GIVE REG ERROR HESS 

JMP M0LU2 (GO TO CYCLE 

JSR PIOOOA (ISSUE FUNCTION 



001B FPYDI 








01 01010 


070400 




OIA 


2,FPY 


02 01011 


024161 




LOA 


1,9IT2 


03 01012 


147415 




AND* 


2,1,SNR 


04 01013 


0P0766 




JMP 


HOLDS 


05 01014 


006074 




JSR 


PIEHME 


06 01015 


005273 




HLSTS 




07 01016 


006104 




JSR 


• IERR 


06 




H0L02S 


LOOPS 




98 01017 


(S0b247 




JSR 


PITET 


10 01020 


006214 




JSR 


♦ICYC7E 


11 01021 


102400 




SUB 


0,19 


12 01022 

13 

14 01023 


040257 




STA 


0,KRTS1 


000402 




JMP 


.♦i! 


15 01024 


000003 


TN3I 


3 




16 01025 


02013S 


ET3: 


LUA 


0.TSTNM 


17 01026 


024776 




LOA 


1.TN3 


16 01027 


122454 




SUBO* 


1,(1, SZR 


18 01030 


006256 




JSR 


FISfcQER 



(READ THE STATUS 

(GET THE HEAD LOAO BIT 

(IS HEAO LOAO SET 

(NOT ISSUE ANOTHER SETTLE 

(TELL OPERATOR THE HEAD LOAD 

(SET BEFORE 8 START PULSES ISSUE 

(REPORT REG ERROR MESS 



(GD TO CYCLE ON TEST ROUTINE 
(CLEAR ACS 
(CLEAR ERTSl 



(CHECK THE PROGRAM FLOW 



0019 fPYUI 


•11 






a2 






as 






it 






as 


uieai 


C10136 T 


ne 






B7 






Be 






09 






in 






11 






12 






13 






14 






15 






16 






1/ 






18 






19 






20 


B1432 


B06276 


21 


aiaai 


<i 86213 


22 


611034 


000100 


23 






24 


01035 


.'24133 


2b 


B1B36 


044235 


26 


011)37 


044177 


27 


01040 


»24152 


26 


01041 


044263 


29 


01042 


0P6I27 


3B 


B1B4J 


B0002S 


31 


B1044 


000000 


32 


B104S 


024777 


33 


01046 


044235 


34 


01B47 


044126 


35 


01050 


003101 


36 


BlBbl 


006073 C 


37 


01052 


006111 


38 


01053 


B66400 


38 


01054 


030153 


4(1 


01055 


147400 


41 


01056 


132404 


42 


B1B37 


000434 


43 


01060 


020179 


44 


01061 


042177 


4! 


B1062 


020177 


46 


01063 


006111 


47 


B1B64 


062000 


4B 


B1B63 


006111 


4» 


01066 


071400 


SB 


01067 


142414 


31 


B1070 


000451 


32 


01071 


020143 


S3 


011072 


006077 


34 


01073 


006111 


55 


01074 


061100 


36 


01075 


132400 


37 


01076 


030126 


38 


01077 


030177 


39 


01100 


020120 


60 


01101 


113000 



TST*4 «TEST EHROR SfcTS WITH CHECK WORD ERKORW 



ST4: TS2 TSTNM (ENTERING A NEW TEST 

THE TEST FIRST WRITES ALL 0'5 ON TRACK 25 
SECTOR B. THEN 8IT15 IS SET IN THE FIRST WORJ 
Of THE WRITE BUFFER, ANOTHER WRITE IS ISSUED 
TO THE SAME TKACK AND SECTOR AND IS ABORTED 
AFTER THE FLOPPYS BUFFER AOORESS HAS INCREASED BY 7 
BY ISSUING A READ PREAMBLE TO THE FLOPPY. 
A READ IS THE ISSUED TO THE FLOPPY FOR THE 
SAME TRACK AND SECTOR . STATUS IS THEN CHECKED 
FOR A CHECK WORO ERROR AND ERROR. IF CHECK WORD 
ERROR DOES NOT OCCUR START LOUKING AT THE ERROR , 
TREE LOSIC. 

iiiiinniimiiiiiiiitiniHiititiiiiiiiiitiuiu/iiiiitiiiui 



CWEll 



JSR 


PPTET 


JSR 


PIENT7R 


100 




LDA 


l.IwHuF 


S1A 


l.COENT 


STA 


l.IBUF 


LD» 


1, BLANK 


STA 


l.WPAT 


JSR 


PIWCP2 


25 









LDA 


1..-1 


STA 


1 ,COENT 


STA 


1, RCOUNT 


JSR 


PISET 


JSR 


PIRPRE 


JSR 


PIDOOA 


OIC 


1,FPY 


LDA 


2.C1777 


AND 


2.1 


SUB 


1,2, SZR 


JMP 


CWE7 


LOA 


0.BIT13 


STA 


0,*IBUF 


LOA 


0|IBUF 


JSR 


PIDOOA 


DOB 


0.FPY 


JSR 


PIDOOA 


OIB 


2.FPY 


SUB* 


2,0, SIR 


JMP 


CWE8 


LDA 


B,WITFUN 


JSR 


PIDRI 


JSR 


PIDOOA 


OOAS 


0,FPY 


SUB 


2,2 


STA 


2,RC0UNT 


LDA 


2,IBUF 


LDA 


0,SECTST 


ADD 


0,2 



(PRINT THE TEST * 

(CO SET UP TEST 



(GET WRITE BUFFER AOORESS 

(SET THE COMMAND ENTRY FLAG 

(SETUP THE BUFFER ADDRESS 

(GET ALL 0'S 

(STORE AT WHAT PATTERN 

(CLEAR THE TRACK AND SECTOR 

(TRACK 23 

(SECTOR 

(CLEAR »C0 

(CLEAR COMMAND ENTRY SWITCH 

(CLEAR RCOUNT FOR TIMING 

(MAKE SURE HEAO IS LOAOEO 

(GO TELL FLOPPY TO REAO PREAMBLE 

(ISSUE FUNCTION 

(GET THE SECTOR TRACK WORD FROM 

(GET THE SECTOR MASK 

(MASK OUT THE TRACK BITS 

(SEE IF ITS NEXT SECTOR 

(NO (CONTINUE SEARCH 

(GET BIT 13 

(MESS UP FIST WORO IN BUFFER 

(YES ,LOAD AM WITH BUFFER ADORE 

(ISSUE FUNCTION 

(GIVE IT TO THE FLOPPY 

(READ BACK THE ADDRESS 

(IS IT THE SAME AOORESS 

(NO 

(LOAD AC0 WITH WRITE NEXT SECTOR 

(SET IT UP FOR CORRECT DRIVE 

(ISSUE FUNCTION 

(TELL FLOPPY TO WRITE 

(CLEAR COUNTER 

(GET BUFFER ADDRESS 

(GET A 7 

(INCREASE BUFFER ADDRESS BY 7 



0020 FPYDI 






ai 


01102 


006111 C«E2S 


JSR 


PIDOOA 


02 


01103 


061400 


DIB 


0.FPY 


03 


01104 


101*13 


MOV* 


0,0, SNR 


04 


01 1 fa 


000403 


JMP 


CWE6 


516 


01 1P6 


101414 


INC* 


0,0, SZR 


06 


01107 


000405 


JMP 


CWE5 


07 


01110 


006074 CWE6I 


JSR 


PIERME 


0B 


01111 


004720 


oibng 




09 


01112 


006104 


JSR 


PIERR 


IB 


01113 


004441 


JMP 


CWE3»3 


11 


01114 


112414 CWE5I 


SUB* 


0,2, SZR 


12 


01115 


000303 


JMP 


CwE9 


13 


01116 


006111 


JSR 


PIDOOA 


14 


01117 


060600 


DIAC 


b.fpy 


16 


01120 


006103 


JSR 


PIREAD 


16 


01121 


0P002S 


2b 




17 


01122 


000000 







18 


01123 


177777 


-1 




IB 


01124 


024173 


LDA 


1.BIT12 


20 


01125 


107434 


AND!* 


8,1, SZR 


21 


01126 


000423 


JMP 


CWE3 


22 


01127 


101234 


MOVZR* 


0,0, SZR 


23 
24 

25 


01130 


000417 


JMP 


CNE4 










26 


01131 


006104 


JSR 


PIERR 


27 


01132 


000422 


JMP 


CWE3*3 


28 


01133 


010123 CWE7I 


'ISZ 


RCOUNT 


29 


01134 


000715 


JMP 


CWEI 


30 

31 
32 


01133 


006074 


JSR 


PIERME 


01136 


004167 


CNFSC 




33 


01137 


006104 


JSR 


PIERR 


34 










35 


01140 


000414 


JMP 


CWE3*3 


36 


01141 


151413 CaEBl 


INC* 


2,2,SNR 


37 


01142 


000746 


JMP 


CWE6 


38 


01143 


006074 


JSR 


PIERME 


39 


01144 


004474 


008IB 




40 
41 

42 


01143 


008104 


JSR 


PIEHR 










43 


01146 


000406 


JMP 


CWE3«3 


44 


01147 


006104 CWE41 


JSR 


PIERR 


45 










46 


01150 


000404 


JMP 


CWE3+3 


47 


01131 


101234 CWE3I 


MOVZR* 


0,0, SZR 


48 


01132 


000402 


JMP 


CNESO 


49 

30 
51 


01153 


006104 


JSR 


PIERR 


01154 


024173 


LDA 


1.BIT12 


52 


01135 


030176 


LDA 


2.8IT13 


33 


01136 


147000 


ADD 


2,1 


54 


01157 


124000 


COM 


1,1 


38 


01160 


123400 


AND 


1,8 


36 


01161 


006106 


JSR 


PIERCK 


57 






LOOPS 




5B 


01162 


006247 


JSR 


PITET 


39 


01163 


006214 


JSR 


PICYCTE 


60 


01164 


102400 


SUB 


0(0 



(ISSUE FUNCTION 

(HEAD BUFFER ADDRESS FROM FLOPPY 

(IS ADDRESS 

(018 IS NOT WORKING 

(IS DIB WORKING 

(YES CONTINUE TESTING 

(NO, TELL OPERATOR 

(REPORT DIB NOT WORKING PROPERLY 
(SKKIP TEST CONPLETELY 
(HAS BUFFER ADDRESS INCREMENTED 
(NO KEEP WAITING FOR BUF*7 ADORE 
(MAKE A MESS OF CHECKWORD 

(GO READ THAT SECTOR 2S 

(THERESHOULO BE A CHECK WORD 

(ERROR THIS TIME 

(ONLY ONE READ 

(GET CHECK WORO ERROR BIT 

1010 CHECK WORO ERROR SET 

(YES ,SEE IF ERROR IS SET 

(NO ,SEE IP ERROR SET ANY NAY 

(YES, ERROR SET SO CHECK WORD 

(ERROR BIT BAD OR ANOTHER 

(ERROR HAS SET. 

(GO REPORT ERROR 

(GO 00 NEXT TEST 

(INCREMENT TIMER 

(CONTINUE SEARCHING FOR SECTOR • 

(REPORT CAN'T GET A COMPARE ON S 

(AOORESS 

(GO TO ERROR ROUTINE 

(CANNOT GET A COMPARE ON SECTOR 

(GO TO CYCLE 

(DID DIB RESPONO 

(NO 

(PRINT ERROR MESSAGE 

(PRINT AC'S 

(ACMGOOD DATA 

(ACa>BAD DATA 

(CONTINUE 

(REPORT CHECK WORO ERROR 

(DID NOT SET 

(CONTINUE TESTING 

(IS ERROR SETT 

(ERROR IS SET ALSO 

(CHECK WORO ERROR BIT IS 

(SET BUT ERROR BIT IS CLEAR 

(GET THE CHECK WORD BIT 

(GET THE ERROR BIT 

(ADD THEH TOGETHER 

(COHPLIMENT TO CLEAR 

(THEN PRO STATUS 

(SEE IF ANY OTHER ERRORS SET 



(GO TO CYCLE ON TEST ROUTINE 
(CLEAR AC0 



8021 FPYDI 
31 911165 «4t)2S7 



STA 



e>,EnTst 



(CLEAR ERTS1 



l(JH22 FPVDI 








Ell 








012 








93 K1166 «)i>04u2 




JMP 


.♦? 


14 ailb; »i»e»j04 


TN4! 


4 




05 15117? 828136 


ET4! 


IDA 


B,TSTNM 


«6 »11171 K2477S 




tl)A 


1iTN4 


»7 H1172 122454 




SuBO* 


l,Sl,S£R 


08 HI 173 BP6256 




JSR 


USEOER 



(CHECK THE PROGRAM FLOW 



U1174 010136 TST5I 
I 
I 
I 
) 
I 
I /////////////////////////////•/////// /////////////////•//////// 



0023 
«1 
(12 
iaa 

34 

as 

06 
07 

ne 
n» 
u 
11 

12 
13 

14 01171 

15 01176 
1177 

01200 
■11201 
01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 
01212 

28 01219 

29 

01214 
01215 
0121b 
01217 
01220 
01221 
01222 
01223 



(TST«5 

(*»•••. 



«TEST ILLEAGLE FUNCTION AND ERROR BIT» 



ISI TSTNM (ENTERING A NEW TEST 

TESTS THAT ALL ILLEAGLE FUNCTIONS ARE DETECTED 
AND THAT DONE SETS SET AFTER THE OETECTION, 
ALSO VERIFIES THAT ILLEA6LE FUNCTION SETS ERROR, 

IF AN ERROR OCCURS THE ILLEAGLE FUNCTION IS PRINTED 



16 
17 
18 
IS 
20 
21 
22 
23 
24 
25 
26 
27 



006276 
006213 
000100 
006100 
000P03 
000001" 
020177 
0*6111 
092000 
006101 
020140 
006077 
006111 
061100 
006105 



30 
31 
32 
33 
34 
35 
36 
37 
3V 
3D 01224 

40 01225 

41 01226 

42 01227 
43 

44 01230 

45 01231 
46 

47 01232 000414 

46 01233 022073 ILE3I 
it 01234 
90 01235 

51 01236 

52 01237 

53 01240 
94 01241 
55 01242 
96 01243 

57 01244 
SB 01245 

58 01246 124000 ILE6I 
60 01247 



006111 

060600 
024171 
107415 
000405 
101234 
000424 
006104 

000422 
101234 
000403 
006104 

000416 

006104 



101005 
000417 

006074 
005135 
024257 
125004 
000412 
024140 
006212 
000407 
124000 
123400 



ILE11 



ILE2I 



JSR 

JSR 

100 

JSR 

3 



LDA 

JSR 

DOB 

JSR 

LDA 

JSR 

JSR 

DOAS 

JSR 

JSR 

DIAC 

LDA 

AND* 

JMP 

MOVZR* 

JMP 

JSR 

JMP 

NUVZR* 
JMP 
JSR 

JMP 
JSR 

JMP 

LDA 

MOV 

JMP 

JSR 

IFMAS 

LDA 

MOV 

JMP 

LDA 

JSR 

JMP 

COM 

AND 



PPTET 
#IENT?R 



•ISEAK 



0,IBUF 

PIOOOA 

0,FPY 

#ISET 

0|ILFUN 

• IDRI 
•IOUOA 
0.FPY 
PITIME 

•IDUOA 
0.FPY 
1.BIT10 
0,1, SNR 
ILE1 
0,0, SZR 
ILE6 
PIERR 

ILE6 
0,0, SZR 
ILE2 

• IERR 

ILE6 

• IERR 

ILE6 
0,»IITR 
0,8, SNR 
ILES 
•IERME 

1.ERTS1 

1,1, SZR 

ILES 

l.ILFUN 

♦IZOCTT 

ILES 

1,1 

1,0 



IPRINT THE TEST * 
(50 SETUP TEST 
IFOR 100 ITERATIONS 
(SEAK A NE« TRACK 
I TRACK 3 

(GET BUFFER AOORESS 

(ISSUE FUNCTION 

(GIVE ADDRESS TO FLOPPY 

ISETTLE THE DRIVE 

(SET THE ILLEAGLE FUNC 

(SET IT UP FOR CORRECT DRIVE 

I ISSUE IT TO THE FLOPPY 

(GIVE FLOPPY ILLEAGLE FUNCTION 

(WAIT FOR DONE 

(POSITION 

(ISSUE READ STATUS 

(READ STATUS AND CLEAR 

(GET ILLEAGLE FUNC SIT 

(IS ILL FUN SET 

(NO, SEE IF ERROR SET ANYHAY 

(IS ERROR SET? 

(YES, CONTINUE TESTING 

(NO, REPORT ILL FUN BUT 

(NO ERROR BIT SET 

(CONTINUE TESTING 

(IS ERROR SET? 

(YES, REPORT NO ILL FUN 

(REPORT NO ILL FUN, 

(NO ERROR BIT SET 

(CONTINUE TESTING 

(REPORT ERROR BIT SET 

(ILL FUN NOT SET 

(CONTINUE TESTING 

(GET THE ERROR 1PLAG 

(MAS THER AN ERROR 

(NO 

(YES TELL OPERATOR 

(SEE IF WE ARE LOOPING 
(ARE HE LOOPINGT 
(YES 

(GET ILLEAGLE VALUE 
(PRINT THE VALUE 
(CONTINUE TESTING 
(COMPLIMENT THE ILLEAGLE FLAG 
(CLEAR THE ILLEAGLE FLAG IF ITS 



0024 FPYOI 










01 01250 


101220 




MOVZR 


0,0 


(CLEAR ERROR 


02 C1251 


101120 




MUVZL 


0,0 


(BIT 


Hi 81232 


006106 




JSR 


•IEMCK 


(SEE IF ANY OTHER ERRORS 


04 01253 


000760 




JMP 


ILES 


(CONTINUE WITH TEST 


05 




ILE8I 


LOOPS 






06 01254 


006247 




JSR 


♦ ITET 




07 01255 


006214 




JSR 


•ICYC7E 


(GO TO CYCLE ON TEST ROUTINE 


06 01256 


102400 




SUB 


0,0 


(CLEAR ACB 


08 01257 

10 

11 01260 


040257 




STA 


0.ERTS1 


(CLEAR ERTS1 


00X402 




JMP 


.♦2 




12 01261 


000005 


TN5I 


9 






13 01262 


020136 


ET5I 


LDA 


0.TSTNM 




14 01263 


024776 




LDA 


1,TNS 




15 01264 


122454 




SUBO* 


1,0, SZR 


(CHECK THE PROGRAM FLOW 


16 01265 


006256 




JSR 


PISEOER 





0025 FPYDI 
ai (...•„. 

02 (TST#6 

83 I...... 

04 

39 01266 tollUJS TST6I 

86 r 

87 t 
06 ; 
OS I 
112 ( 
tl 
12 
13 

14 U 1 267 006276 
16 012719 006213 

16 01271 000100 

17 »1272 03*1133 
IB 01273 050177 

18 01274 006876 

20 01275 086102 

21 01276 088100 

22 01277 080803 

23 01300 086106 

24 01381 030134 
26 01302 191408 

26 01383 191400 

27 01304 006111 
2b 01385 061408 
20 01306 112415 

30 01307 080405 

31 01310 806874 
32 

33 01311 004634 

34 01312 006104 
35 

36 

37 01313 00041S 

36 01314 086103 BADD2I 

iV 01315 000808 

40 01316 080800 

41 01317 177777 

42 01320 006111 

43 01321 071400 

44 01322 034134 

45 01323 175400 

46 81324 156415 

47 01325 080404 
46 01326 006874 
4» 01327 084335 
50 0133t/ 086104 
51 

52 
53 

54 SADUil 

55 01331 886247 

56 01332 H06214 

57 01393 102400 
96 01334 040257 
59 
60 01335 080402 



<TEST BUFFER ADDRESS INCREMENTS PROPERLY* 



ISZ TSTNM (ENTERING A NEK TEST 

THIS TEST CHECKS THAT THE BUFFER ADDRESS INCREHENTS 

TO THE CORRECT ADDRESS AFTER A WRITE. 

IF ANY ERRORS OCCUR SO TO THE BUFFER ADDRESS INC 
LOGIC. 

i tniiiiiiii nini/uuiiiiitiiuiininiitniiiiuuiuHiiitn 



0026 FPYDI 








11 01336 00U006 


TNS! 


6 




02 01337 020136 


ET5I 


LU» 


0,TSTNM 


83 01340 024776 




LUA 


l.TNS 


84 01341 122454 




SUBOW 


1,(>',SZR 


85 01342 006256 




JSR 


8ISE0ER 



(CHECK THE PROGRAM FLON 



JSR 

JSR 

100 

L04 

STA 

JSR 

JSR 

100 

3 

JSR 

LP» 

INC 

INC 

JSR 

DIB 

SUBB 

JMP 

JSR 

BAODI 
JSR 



JMP 

JSR 





-1 

JSR 

DIB 

IDA 

INC 

SUBO 

JMP 

JSR 

BADDR 

JSR 



LOOPS 

JSR 

JSR 

SUB 
STA 

JhP 



8PTET 
•IENT7R 

2,INBUF 
2,I6UF 
•IWRSE 
♦IRITE 



•IERCK 
2.BUFE0 
2.2 
2.2 

f mooA 

0.FPY 
8.2.SNR 
BA002 
#IEKME 



BADOl 

URtAD 



dDOOA 
2.FPY 
3.BUFED 
3,3 

2.3.SNR 

BADbl 

•lERMfc 

8IERR 



»ITET 
#ICYC?E 

8,0 
B.ERTS1 

.♦2 



(PRINT THE TEST « 
(SETUP TEST 

(GET WRITE BUFFER ADDRESS 

(STORE IT AT BUFFER POINTER 

(SET THE WRITE SWITCH 

(00 THE WRITE 

(TRACK 100 

(SECTOR 3 

(WAS THERE ANY ERRORS 

(GET END OF BUFFER ADDRESS 

(INCREHNET BUFFER AODRESS 

(CORRECT IT 6ECASE BUFED IS .1 

(GO READ THE BUFFER ADDRESS 

(READ THE BUFFER ADDRESS 

(00 THEY EQUAL 

(YES ,TEST INCREMENT ON READ 

(REPORT BUFFER AODRESS NOT INC 

(REMENTING PROPERLY 

(BUFFER ADDRESS DID NOT INC- 
REMENT PROPERLY OR THE DIB FUNC 
(IS NOT WORKING 
(tXIT THE TEST 
(GO DO A READ 



(GET THE ADRESS 

(DO A DIB 

(GET BUFFER END ADDRESS 

(INCREASE IT BY 1 

(DO THEY COMPARE 

(CONTINUE TESTS 

(PRINT ADDRESS ERROR 

(PRINT THE AC'S 
(ACB'STATUS 
(AC2>BA0 ADDRESS 
(AC3'G000 ADDRESS 



(GO TO CYCLE ON TEST ROUTINE 
(CLEAR AC0 
(CLEAR ERTSI 



t<t 


27 FPYOI 
01343 010136 








31 
02 


|TST»7 <TEST 


SECTOR ERROR 


AND ERROR BIT* 


03 

0b 


TST7I ISZ 


TSTNM 


IENTERINO A NEN TEST 


06 






1 THIS TEST DOES A READ NEXT SECTOR FOR SECTOR 


07 






1 IF NO 


SECTOR ERROR 


OCCURS ANOTHER READ NEXT 


0« 






) SECTOR 


FOR SECTOR 


IS ISSUED, IF SECTOR ERROR 


0* 






1 OOES NOT SET ON THE 


SECOND TRY AN ERROR IS REPORTED 


1 Hi 

11 






1 IF SECTOR ERROR WON 


IT SET CHECK) 


12 








1) COMMAND 


REGISTER U100 PINS 5,7,10 FOR 


13 








ALL LOUS 


• 


14 

15 








2) CHECK INPUTS FOR UBS PIN 3 AIMD 2 FOR 


16 








PROPER OPERATION, 


17 






; *•♦ SECTOR ERROR FLIP FLOP HILL GIVE AN ERROR 


18 






| FUR EVERY SECTOR EXCEPT THE ONE BEING READ, 


lt> 
20 






Miinittiuiiniitiminntiiiitiinniiiiiinutiiiiiiiiiiiu 


21 
22 


01344 


006276 


JSR 


PPTET 


IPRINT THE TEST » 


2a 


0134b 


096213 


JSR 


»IENT?R 


(SETUP TEST 


24 


01346 


000100 


100 




(FOR 100 ITERATIONS 


28 


01347 


024175 


LDA 


1.BIT14 


ISET A COUNT OF 2 


26 


01351, 


044262 


STA 


1,SERCT 


(SAVE IN TRY COUNTER 


27 


01351 


006100 


JSR 


•ISEAK 


ISEAK A TRACK 


2e 


01352 


O00040 


40 




I TRACK 48 


26 


01353 


W0Z000 









30 


01354 


034177 


MORE! LDA 


2,IBUF 


ISET BUFFER ADDRESS 


31 


0135b 


006111 


JSR 


•IDOOA 


(GIVE IT TO THE FLOPPY 


32 


01356 


072000 


DOB 


2,FPY 




33 


01357 


020142 


LOA 


0,REOFUN 


ISET READ FUNCTION 


34 


01360 


006077 


JSR 


• IDRI 


ISET IT UP FOR CORRECT DRIVE 


3b 


01361 


006111 


JSR 


•IDOOA 


(TELL FLOPPY TO READ 


36 


01362 


061100 


OOAS 


B.FPY 




37 


01363 


0P6105 


JSR 


•1TIME 


MAIT FOR DONE 


36 


141364 


1906111 


JSR 


•IDOOA 


(READ THE STATUS 


38 


0136b 


060600 


DIAC 


0,FPY 


(AND CLEAR IT 


40 


01366 


024172 


LDA 


1,BITU 


(GET SECTOR ERROR BIT 


41 


01367 


123434 


ANDZ* 


1,0, SZR 


(IS SECTOR ERROR SET? 


42 


01370 


000410 


JMP 


SECT1 


(YES SEE IF ERROR SET 


43 


01371 


014262 


DSZ 


SERCT 


(DECREMENT TRV COUNTER 


44 


01372 


090762 


JMP 


MORE 


(FIRST TRY 00 IT AGAIN 


45 


01373 


006074 


JSR 


#IERME 


(REPORT SECTOR ERROR NONIT SET 


46 


01374 


OH4235 


SECWS 






47 


01375 


006104 


JSR 


• IERR 


(SECTOR ERROR IS NOT SETTING 


48 


01370 


006106 


JSR 


•IERCK 


(SEE IF ANY OTHER ERROR SET 


*» 


01377 


000404 


JMP 


.** 


(CONTINUE TESTING 


50 


01400 


101214 


SECT1I HOVRO 


0,0, SZR 


(IS ERROR SETT 


51 


01401 


000402 


JMP 


.♦2 


(YES CONTINUE TESTING 


52 


01402 


006104 


JSR 


• IERR 


(SECTOR ERROR SET BUT 


53 










(ERROR BIT IS CLEAR 


54 


01403 


O30176 


LDA 


2.BIT15 


(GET THE ERROR BIT 


55 


01404 


147000 


ADD 


2,1 


(ADD IT TO THE SECTOR ERROR BIT 


56 


01405 


124000 


COM 


1,1 


(COMPLIMENT TO CLEAR THE 


57 


01406 


123400 


AND 


1,0 


(THE BITS 


58 


01407 


006106 


JSR 


•IERCK 


(SEE IF ANY OTHER ERRORS 


59 






LOOPS 






an 


01410 


006247 


JSR 


• ITET 





0028 FPYDI 

01 *)1411 006214 JSR 0ICYCTE 

02 41412 102400 SUB 0,0 

03 i«1413 B40257 STA 0,ERTS1 
04 

0b 01414 000402 JMP ,»2 

06 01415 O0O007 TN7! 7 

07 81416 024136 ET7I LOA 0, TSTNM 

08 01417 024776 LOA 1,TN7 
AS 01420 122454 SUBO* 1,0, SZR 
10 01421 006256 JSR FISEOtR 



(GO TO CYCLE ON TEST ROUTINE 
(CLEAR AC0 
(CLEAR ERTS1 



(CHECK THE PROGRAM FLOW 



0029 FPYUI 








01 


(•••••••••......,..»,,, 


02 


(TSTM0 «TEST 


THE MASK 


A3 

014 


r ***** 


A**************** 


06 01422 010136 
06 


TST10I 


ISZ 


TSTNM 


07 If 1423 009276 




JSR 


PPTET 


"b 01424 006213 




JSR 


HENTTR 


09 0142!! 000005 




5 




10 01420 006100 




JSR 


•IStAK 


11 01427 O00P53 




53 




12 01430 1*00008 









13 01431 020177 




LOA 


0> IBUF 


14 01432 0B6U1 




JSR 


PIOUOA 


15 01433 1)62000 




DOB 


0,FPY 


16 01434 024420 




LOA 


1 >INS£R 


17 01435 M4001 




STA 


1 > 1 


IB 0143b 024153 




LOA 


liONEZ 


11 01437 066077 




MSKO 


1 


20 01440 060177 




INTEN 




21 01441 020144 




LOA 


0.RDPA 


22 01442 0(16077 




JSR 


»IONI 


23 01443 006111 




JSR 


•I0O0A 


24 01444 0SJ100 




004S 


0,FPY 


26 01445 006105 




JSR 


•ITIME 


26 01446 U60277 




INTDS 




27 01447 024104 




IDA 


llIERN 


28 01450 044001 




STA 


1 > 1 


2« 01451 024152 




LOA 


1 I BLANK 


30 01452 O66077 




MSKO 


1 


31 01453 000412 




JMP 


MAK1 


32 01454 001455 


INSERI 


"AK2 




33 01455 063710 


MAK2! 


SKPDZ 


TTI 


34 01456 000404 




JMP 


MAK3 


35 01457 006074 




JSR 


•IERME 


36 01460 005242 




MKNS 




37 01461 O0o4o3 




JMP 


MAK4 


38 01462 006074 


MAKJI 


JSR 


•IEHME 


3fc 01463 005214 




MKTT 




40 01464 006104 


MAK4! 


JSR 


• IEKR 


41 


«AK1 1 


LOOPS 




42 01465 006247 




JSR 


PITET 


43 01466 006214 




JSR 


PICYC7E 


44 01467 102400 




SUB 


010 


45 01470 040257 
46 




STA 


0.ERTS1 


47 01471 000402 




JMP 


.♦2 


48 01472 000010 TN10I 


10 




*y 01473 020136 ET10I 


LUA 


0, TSTNM 


50 01474 024776 




UDA 


l,TN18 


51 01475 122454 




3u90« 


1,0, SZR 


52 01476 006256 




JSH 


•ISfcQER 



******••*•♦«»*«•.*•.**..*.,.„»,».,.,,, 

THE FLOPPY* 
•*•**• «»••*•*•*•••«*».,..,.».....,».„, 

(ENTERING A NEW TEST 

(PRINT THE TEST » 
(SETUP THE TEST 

(SEEK TRACK 53 



(GET A BUFFER ADDRESS 
IGIVE IT TO THE FLOPPY 

(GET THE SERVICE AODRESS 

(STORE AT INTERUPT POINTER 

(GET ALL 1IJ 

(HA8K ALL OEVICfcS 

(ENABLE INTERUPTS 

(GET READ PREAMBLE 

(SET IT UP FOR CORRECT DRIVE 

(ISSUE IT TO FLOPPY 

(■AIT FOR DONE 

(DISABLE INTERUPTS 

(GET ERROR ADDRESS 

(IF INTERUPTED REPORT ERROR 

(GET 0'S 

(CLEAR THE MASKH 

(CONTINUE TESTING 

(SEE IF TTY INTERUPTED 

(YES 

(REPORT MASK DID NOT MORK 

(CONTINUE TESTING 
(REPORT TTY INTERUPTED 

(REPORT ERROR 



(GO TO CYCLE ON TEST ROUTINE 
(CLEAH AC0 
(CLEAN ERTS1 



(CHECK THE PROGRAM FLOW 



0030 FPYOI 

01 

02 

03 

04 

05 01477 010136 

0b 

07 

06 

0fc 

10 

11 

12 

13 

14 

15 

16 

17 

16 

lb 

20 

21 

22 

23 

24 01500 006276 

25 01501 006213 

26 01572 000001 

27 01503 0P6131 
26 

29 01504 006247 

30 01505 O06214 

31 01506 102400 

32 01507 040257 



rSTKll 4HRITE ANO READ ALL PATTERNS TEST* 

'""*" «"»»"""»..«..«.......t.»..„„ „„„ 

"Till ISZ TSTNH (ENTERING A IDEM TEST 

KRITES,REAOS AND COMPARES ALL TEST PATTERNS ON 
ALL TRACKS AND SECTORS, 

IF ERRORS OCCUR CHECK( 

U POSSIBLE BAD MEDIA 

2) CHECK YB20 AT USB PIN 13 70 
VERIFY IT OCCURS AT THE RIGHT TIME 

3) HEAD IS POSSIBLY OUT OF ALIGNMENT 

IF hRITE FAULT ERRORS CHECKI 

1) U7S PIN 6 FOR 4HICR0 SEC CELL CLOCK 

2) CHECK 4R0ATA AT U18 PIN 3 AND 5 

3) CHECK HRGATE AT U19 PIN 3 ANO 5 

4) POSSIBLE DRIVE CONTROLLER LOGIC 
PROBLEM. 

i"titiitntinnttttttntutnttttiinnnniiuittinntnm 



(PRINT THE TEJT • 
(SETUP TEST 

(I ITERATIONS 

(00 NRITE READ ANO COMPARE 



JSR 


• PTET 


JSH 

1 

JSR 


PIENTtR 


PIMCPAT 


LOOPS 




JSR 


PITET 


JSR 


PICYCTE 


SuB 


0,2 


STA 


B,ERTSl 



(GO TO CYCLE ON TEST ROUTINE 
(CLEAR ACB 
(CLEAR ERTSS 



IMPI.S1 FPYUI 

81 
22 

a3 01510 000402 

04 01511 0P0011 TNIU 

05 11912 020136 ETUI 

06 01513 024778 

07 01514 122494 
9B 01513 006256 



JMP 


• «2 


11 




LDA 


b.tstnm 


LOA 


l.TNU 


SUBOR 


1.0, SZR 


JSR 


•ISEOER 



(CHECK THE PROGRAM FLOW 



0032 FPY 
Dl 
02 
03 
04 

0S 01516 
0b 

a7 01517 
ae 01520 
as 01S21 

It) 01522 

11 01523 

12 01524 

13 01525 

14 01526 

15 01527 

16 01930 

17 01531 

18 01532 

19 (11933 

20 01534 

21 01535 

22 01536 

23 01537 

24 01540 

25 01941 

26 01542 

27 01543 
26 01544 

29 01545 

30 01546 

31 01547 

32 01530 

33 01551 

34 01552 

35 01553 

36 01554 

37 01555 
36 01556 

39 01557 

40 a I960 

41 01561 

42 01562 
43 

44 01563 

45 01564 

46 01565 

47 01566 

48 01587 

49 01570 
30 01571 

91 01572 

92 01573 

53 01974 

54 01575 

55 01576 

56 01577 

57 01600 

58 01621 
39 01602 
60 



|TST»12 «TEST HfcAO LOAD AFTER DRIVE CHANGE* 



010136 TST12I ISZ 



0ae276 
006213 

08010a 

024172 

030173 

147000 

030178 

147000 

044128 

024116 

030157 

020234 

101009 

000448 

020141 

147414 

0*0402 

143000 

006111 DCH1I 

061100 

006105 

006111 

070400 

151132 

000412 

024161 

133404 

000413 

014126 

U00765 

006074 

004037 

006104 

000422 

006074 DCM21 

004267 

006104 

000416 

030173 DCM3I 

024122 

146400 

030126 

132404 

000402 

000407 

151133 0CH9I 

000402 

000404 

006074 DCH61 

004063 

006104 

006101 DCH4I 



JSR 
JSR 
100 

L0» 

LDA 

»l)0 

LUA 

ADD 

»T» 

LDA 

IDA 

LOA 

MOV 

JMP 

LDA 

ANO« 

JMP 

ADD 

JSR 

DQAS 

J8R 

JSR 

DIA 

MOVZL» 

JMP 

LD» 

AND 

JMP 

OSZ 

JMP 

JSR 

MDL2B 

JSR 

JMP 

JSR 

FPYRD 

JSR 

JMP 

LUA 

LD« 

SU8 

LDA 

SUB 

JMP 

JMP 

MOVZL* 

JMP 

JMP 

JSR 

HLSOC 
JSR 
JSR 
LOOPS 



PPTET 
PIENTTR 

l.BITll 

2,BIT12 

2.1 

2.BIT19 

2.1 

1, RCOUNT 

1, FLAGS 

2.BITB 

B.NUOEV 

B.0.SNR 

0CM4 

8, SETTLE 

2.1.SZR 

DCH1 

2.0 

•IOO0A 

8.FPY 

PITIME 

0IOOOA 

2, PPT 

2.2.SZC 

DCH2 

1.BIT2 

1.2.SZR 

0CH3 

RCOUNT 

DCHl 

PIERME 

PIERR 

0CH4 

RIERNE 



PIERR 

DCM4 

2.BIT12 

1.C23 

2.1 

2, RCOUNT 

1.2.SZR 

0CH5 

DCH4 

2.2.3NC 

DCH8 

DCM4 

PIERME 

PIERR 
• ISET 



(ENTERING A NEK TEST 

(PRINT THE TEST • 

(SETUP THE TEST 

(FOR 10* ITERATION 

(GET A 28 

(GET A 4 

(HAKE A 24 0CTAL«2» DECIMAL 

(GET A 1 TO MAKE 31 OCTAL 

(CREATE THE 31 

(SAVE THE COUNT 

(GET THE FLAGS 

(GET THE DRIVE BIT 

(GET THE • OF DEVICES 

(DO « HAVE 2 DRIVES 

(NO SKIP THE TEST 

(GET A SETTLE FUNCTION 

(NHAT DRIVE ARE ME TO CHANGE TO 

(SET IT FOR DRIVE I 

(SET FOR DRIVE 1 

(ISSUE THE SETTLE 

(RAIT FOR DONE 
(GET THE STATUS 

(IS THE FLOPPt READY 

(FLOPPY KENT NOT READY 

(GET THE HEAD LOAD SIT 

(II THE MEAD LOADED 

(YE* SEE HON LONG IT TOOK 

(NO DECREMENT THE COUNT 

(CONTINUE SETTELING 

(REPORT HEADS DID NOT LOAD AFTER 

(21 SETTLE TINES 

(PRINT THE AC'S 

(CONTINUE TESTS 

(REPORT THE FLOPPY NENT 

(NOT READY AFTER A DRIVE 

(CHANGE 

(PRINT THE ACIS 

(CONTINUE TESTS 

(GET A 18 OCTAL'* OECIHAL 

(GET A23 OCTAL 

(MAKE A 13 OCTAL 

(GET THE REMANING COUNT 

(SUBTRACT THE 4 

(SEE IF RESULT IS POSITIVE 

(DRIVE CHANGE OK CONT TEST 

(IS IT A NEG VALUE 

(NO DRIVE CHANGE IN ERROR 

(CONTINUE TESTING 

(REPORT HEAO LOAD SET TO SOON 

(ON A DRIVE CHANGE 

(PRINT THE AC'S 

(SETTLE THE DRIVE BEING TESTED 



0033 FPYUI 

01 B16BJ 11X1)247 

02 016P4 006214 
0J 016ES 102400 
04 K 1 B?t> 04H257 
05 

at 01007 u(!a4 U 2 

37 «Jl6l0 000012 TN12: 

06 *16ll 020I3S ET12I 

09 01612 H247/6 

IB 01613 122454 

11 01614 t?(«6ab6 



JSR 


PITET 


JSR 


P1CYCTE 


sua 


e,a 


STA 


0.ERTSI 


JMP 


.♦2 


12 




LuA 


0,TSTNM 


LOA 


1.TM2 


SuBO* 


1,0, SZR 


JSR 


PISfcOtR 



ISO TO CYCLE ON TEST ROUTINE 
(CLEAR AC0 
(CLEAR ERTSl 



(CHECK THE PROGRAM FLOW 



0K34 
01 

"2 
03 



FPYOI 



(l'ST*13 «TEST THE MEAD SETTLE T1NE> 



(« 



45 
06 
07 
0t> 
09 
IB 
t 1 

12 
13 

14 

15 
16 
17 

10 
19 



01615 zjritaa T5T13I ISZ 



1*1616 *06276 JSR 

01617 006213 JSR 

0162b vwai t 

01621 622073 LUA 

01622 101004 MOV 

01623 000403 JMP 
U1624 Mlo4?fl S1A 

01625 K40420 STA 

01626 102400 HESfc4l SUB 
HI 62/ >)40126 STA 
01630 apibl 1 L HESE2I JSR 
P1631 vfi0600 DXAC 
101632 024161 LOA 

20 01633 123413 AND* 

21 (.1634 rP0407 JMP 

22 t)1636 010126 ISZ 

23 01636 0007/2 JMP 

24 0163/ 006074 JSR 
26 01640 UP4145 HULDF 

26 B1641 006104 JSR 

27 H1642 MP0430 JMP 

28 U164J 0061B3 HESE1I JSR 

29 U1644 000000 hTSki 
0B0O09 HSECI 
17/777 
(J06106 
H06273 
.260/3 
125004 



30 
31 
32 
33 
34 



01646 
01646 
0164/ 
0165m 
01661 

35 1652 

36 U1653 1,00417 

37 01654 B10771 
01656 lc24770 
01650 
01657 
01660 
01661 

43 01662 

44 01663 
01664 
01665 
01666 
01667 
01670 
01671 



3D 

39 
40 
41 
42 



030120 
147414 

000746 
152400 
050763 
U10761 
024760 
030147 
132414 
000737 
152400 
050753 



HEHE31 



01672 006247 

01673 406214 

01674 1"I240P 

55 01675 040257 
56 

57 01676 000402 

56 0167/ 000013 TN131 
59 01/00 420136 ETlj: 
6* 01/01 024776 



-1 

JSP 
JSR 
LOA 
MOV 

JMP 

ISZ 

LOA 
LOA 
AND* 
JMP 

sua 

STA 
ISZ 

LOA 
LOA 

sua* 

J.MP 

SuB 

STA 

LOOPS 

JSP 

JSR 

SUB 

STA 

JMP 
13 

LUA 
LOA 



TSTNM 

»PTET 

HENTTR 

b,#iitr 

0,0, SZR 

HESE4 

0.MTRK 

0.HSEC 

0,0 

0,RCOUNT 

• IOOOA 

0,FPY 

1.HIT2 

1,0, SNR 

HESE1 

RCOUNT 

HE8E2 

•IERME 

• IERR 
HESE3 
•IREAD 



• IF.KCK 
PICPET 
1,#IITR 
1,1, SZR 
HESE3 
HSEC 

i,Hsrc 

2.SECTST 
2,1, SZR 

HtSE4 

2,2 

2, HSEC 

HTRK 

1,HTRK 

2,r,77 

1,2, SZR 

HESE4 

2,2 

2, HTRK 

• lTfcT 
PICYC7E 
0,0 
0.ERTS1 

.♦2 

0,TSTN« 
1.TM13 



(ENTERING A HEW TEST 

(PRINT THE TEST » 

(SET UP THE TEST 

(FOR I ITERATION 

(SEE IF WE HAD AN ERROR 

(ANY ERRORS? 

(YES ,NOT 1*T TINE THROUGH 

(CLE«R THE TRACK 

(CLEAR SECTOR AODRESS 

(HAKE SURE ACS'! 

(CLEAR THE COUNT 

(GET THE STATUS 

(READ THE STATUS 

(GET THE HEAD LOAD BIT 

(IS THE HEAD LOADED 

(NO GO READ THE SECTOR 

(INC THE COUNT 

(CONT WAITING FOR HEADS 

(PRINT THE HEAOS NONIT 

(UNLOAD 

(PRINT THE ACIS 

(CONTINUE TESTS 

(GO READ THE FLOPPY 

(TRACK AODRESS 

(SECTOR ADDRESS 

(1 SECTOR 

(SEE IF ANY ERRORS 

(COMPARE THE INFO 

(GET THE ERROR COUNT 

(WAS THERE ANY ERRORS 

(YES DONT UPDATE JUST LOOP 

( INCREMENT SECTOR CPUNT 

(GET NEW SECTOR 

(GET SECTOR TEST VALUE 

(DO NE HAVE A SECTOR OVERFLOW 

(NO CONT 

(CLEAR THE AC 

(RESTORE TO SECTOR 

(CRETE NEW TRACK VALUE 

(GET NEW TRACK 

(GET MAX TRACK VALUE 

(ARE WE OONE WITH ALL TRACKS 

(NO CONT 

(YES CLEAR THE AC 

(CLEAR TRAK VALUE 



(GO TO CYCLE 
(CLEAR AC0 
(CLEAR ERTS1 



ON TEST ROUTINE 



0035 fpyui 






1 01702 122454 


SuBUN 


1,0, S£R 


12 01700 4062S6 


JSR 


•ISEQER 



(CHECK THE PROGRAM FLOH 



irsr«i4 

(••»•••. 



0036 FPYUI 
HI 

00 

04 

16 01704 010136 TST14I ISZ 

tab 

07 

lib 



<TEST BOTH FLOPPYS OF" » DUAL DRIVE* 



H170S 

01/06 
tttl i»17t«7 

1H HMD 

11 01711 

12 01712 

13 »|71J 

14 01714 

15 01715 

16 01716 

17 01717 

18 01720 

19 01721 

20 1111722 

21 01723 

22 01724 

23 ill723 

24 01726 

25 £1727 
2b 01730 

27 81731 

28 01732 
2W 01733 
3m 01734 

31 01735 

32 01736 
J3 01737 
34 01740 

33 01741 

36 £1742 

37 01743 

38 01744 
3» 01745 

40 01746 

41 01747 

42 01750 
4o w 1 751 

44 01762 

45 01753 

46 01734 

47 H1755 
46 0175b 

48 01757 

50 01760 

51 01761 
92 01762 

53 01763 

54 01764 

55 01765 
56 

57 01766 

56 01767 

59 01770 

60 01771 



006213 

000001 

k.24203 

125005 

000455 

024234 

125003 

000432 

126400 

V44412 

04«412 

024132 

044177 

126400 

044116 

006276 

006213 

000001 

006103 0U5I 

000000 DUTKKt 

000000 DUSECI 

177777 

006106 

006273 

026073 

123004 

000427 

024116 

125102 

000404 

125240 

044116 

000762 

125220 0U3I 

044116 

010761 0u4: 

024760 

030120 

147414 

000733 

126400 

044753 

010751 

024750 

030147 

132414 

000744 

126400 

044743 



DU2I 



006247 
406214 
102400 
040237 



JSR 

1 

LD* 

NOV 

JMP 

LD* 

MOV 

JMP 

sue 

ST» 
ST* 
LD* 
ST* 
SUB 
ST« 
JSR 
JSR 
1 

JSR 



-1 
JSR 
JSR 
LD* 
MOV 
JMP 
LO* 
MOVL 
JMP 
MOVOR 
ST* 
JMP 
MOVZR 
■ ST* 
ISZ 
LD» 
LO* 
*ND« 
JMP 

sue 

ST* 
ISZ 

LB* 

LO* 

SUB* 

JMP 

SUB 

ST* 

LOOPS 

JSR 

JSR 

SUB 

ST* 



PIENTTR 

1,P»SS 
liliSNR 

DU2 

l.NUDEV 

1,1, SNR 

0U2 

1.1 

1,DUTRK 

1.DU8EC 

l.IRBUF 

l.IBUF 

1.1 

1, FLAGS 

PPTET 

PIENT7R 

•IREAO 



PIEKCK 

PICPET 

1,#IITR 

1,1, SZR 

DU2 

1, FLAGS 

1,1, szc 

0U3 

1>1 

1, FLAGS 

DU5 

1.1 

1, FLAGS 

uustc 

l.OUSEC 
2,SECTST 
2,1, SZR 

DU5 

111 

l.DUSEC 

DUTRK 

1,DUTRK 

2.C77 

1,2, SZR 

0U5 

1,1 

1, DUTRK 

PITET 

#ICYC?fc 

0,0 

0.EHTS1 



(ENTERING * NEN TEST 

ISETUP TEST 

(FIND OUT UMAT PASS 
(IS IT PASS 1 

■ YES 

■FIND OUT HON MANY DRIVES 

(ARE THERE MORE THAN 1 

(ONLY ONE DRIVE 

/CLEAR AC1 

ICLEAR TRACK 

ICLEAR SECTOR 

■SET READ BUFFER ADDRESS 

(SAVE THE ADDRESS 

ICLEAR ACl 

(START KITH DRIVE 

(PRINT THE TEST » 

(SETUP THE TEST TO LOOP HERE 

|GD REAO 



(SEE IF ANY ERRORS 

(GO COMPARE THE PATTREN 

(HAS THERE AN ERROR 

(IN THE COMPARE 

(YES SO DON'T UPDATE SECTOR 

(GET THE FLAGS 

(HAS IT DRIVE 1 

(YES 

(SET IT UP FOR DRIVE 1 

(REPLACE THE FLAGS 

(DO THE SAME FOR 0RIVE 1 

(SET FOR DRIVE • 

(SAVE THE NEN FLAGS 

(UPDATE THE SECTOR COUNT 

(SEE IF NE NEED A NEN TRACK 

(GET OVER FLO* BIT 
(HAVE HE OVER PLONEO 
(NO READ THE SECTOR 
(CLEAR ACl 
(MAKE IT SECTOR • 
(INCREMENT THE TRACK 
(FIND OUT IF ALL DONE 
(GET HIGHEST TRACK 
(ARE *l DONE 
(GO READ 
(CLEAR THE AC 
ICLEAR TRACK VALUE 

(GO TO CYCLE ON TEST ROUTINE 
(CLEAR AC0 
ICLEAR ERTS1 



8037 FPYUI 
HI 
32 fl/72 ^PU«02 










JMP 


.♦2 


'•(3 BI773 8UCI0I14 


TN14I 


14 




X< 01774 V-1H36 


ETUI 


LDA 


b.tstnm 


05 B1775 B24776 




LOA 


1.TN14 


40 0177b 122454 




SuBO* 


i,a,az« 


A7 0177/ B8I62S6 




JSH 


FISEQf.H 



(CHECK THE PROGRAM FLOW 



i>JI3S FH 

32 

03 

04 

i)S 02tf!»tf 

«6 

07 «,20<»1 

Kb id?»02 

4* O20HJ 

lei 0SCP4 

11 (S2lsl»5 

12 B?BPb 

13 «<2tfP7 

14 a2Blfc 

15 u2fcll 
lb £2*12 
17 D2013 
lb C2H14 
IV 02B15 
2d 0SH16 

21 «i2017 

22 u202l» 

23 02B21 

24 82022 
26 H2H23 

26 021024 

27 US825 

28 02026 
28 02027 
3b B2030 

31 02031 

32 *2B32 

33 021)33 

34 P2t>34 

39 B2B3.1 
3b 02*36 

37 02037 

38 0204tf 
3» 02041 

40 22042 

41 ,92043 
42 

43 

44 02(144 

4S 

4b B2B45 

47 »2046 

4b 0204? 

49 «>205s> 

sa D2esi 

51 02H52 

52 02«5,t 

53 02«5« 

54 82*55 

55 «2*5b 
5b 02P57 
5/ 02060 

56 02861 
59 02062 
6(9 «i2isB3 



(T:51#15 «THIS IS THE PROGRAM LOAD TEST> 



01013« TSTlSl ISZ TSTNM 



«0b27S 
if 66313 

0000*5 

H2ei7c 

*40l26 

*2*3S!1 

040021 

063710 

*62677 
.361277 

*061H 

»6bi*0 

*06111 LPl.Pii 
*705*(i 
ueeias 

1513H0 

0503*2 
000111 
0705*0 
0343*2 
1730*0 
026021 
146415 

0004*5 

0Bb074 
004252 

0061*4 
00*511 

014126 LPLP2I 
0004*2 
*0*S06 

1524*0 UPLP4I 
*5*3|»2 
00*753 



(THE LOAD PHOGRAf FOLLOWS 

000000 PLftltNl 



JSR 


FPTET 


JSP 
5 

LDA 


PIENT7R 


0,BIT9 


9TA 


B.RCOUNT 


LuA 


d.IPLbG 


9TA 


«,cbufp 


SKPDZ 


TTI 


JSR 


•IINP? 


IURST 




DOAC 


P.CPU 


JSR 


•IDUOA 


N10S 


FPY 


JSR 


•IDBOA 


DIAS 


2.FPY 


JSR 


PITIME 


MDVS 


8,2 


STA 


2,LD"R0 


JSR 


»IDOOA 


DIAS 


2.FPY 


LDA 


J.LDNRD 


ADD 


5,2 


LDA 


1,PCBUFP 


SUB* 


2,1,SNR 


JMP 


LPLP2 


JSR 


•IERME 


PLNG 




JSR 


H\iHR 


JMP 


LPLP3 


osz 


RCOUNT 


JMP 


LPLP4 


JMP 


LPLP3 


sue 


8,2 


STA 


2,L3NRD 


JMP 


LPLP1 



B00007 

1777W0 

00*0/7 

177731 

000131 
02*014 
H24774 
1'74*0 
04447* 
1240*0 
B 1 1" 4 S I 
*H451 
*1*452 
010453 
1234t)4 



7 

177700 

77 

177731 

131 

2«e 14 

24774 

107400 

44*70 

1 2*851 * 

1**51 

1*1*51 

10*52 

ie<s3 

12£404 



(ENTERING A NEW TEST 

(PRINT THE TEST « 

(SETUP THE TEST 

(FOR 9 ITERATIONS 

(SETUP THE LOAD FOR i»» HORDS 

(GET POINTER TO PROGRAM LOAD PRO 

(SAVE AT AUTO ONC LQC 

(HAS A KET BEEN HIT 

(YES, SERVICE IT 

(REST THE SYSTEM 

(REST MICRO NOVA 

(ISUE A START PULSE 

(TO THE FLOPPY 

(READ THE FIRST BYTE 

(HAIT FOR FLOPPY DONE 
(SWAP THE BYTE 
(SAVE IT 

(GET THE SECOND GYTE 

(GET BYTE 1 

(MAKE THE MORD 

(GET FIRST NORO PROM PROG 

(DO THEY COMPARE 

(YES THEY COMPARE 

(TELL OPERATOR PRO LOAD NG 

(AClaGOOD ACStaSAD 
(EXIT TEST 

(DECREMENT THE COUNT 
(CONTINUE THE TEST 
(EXIT THE TEST 
(CLEAR AC2 
(CLEAR LOAO WORD 
(CONTINUE TEST 



15039 FPYUI 






31 02064 000773 


773 




02 02065 020763 


20763 




93 02066 ^30763 


30763 




04 02067 025000 


23000 




85 02d7b 1 S53CC 


155300 




06 02071 1737*3 


173700 




07 H2072 »45400 


45400 




me «2w73 151 4m? 


151400 




Oil 02074 101404 


101404 




1U 102275 (10077? 


772 




11 02076 001733 


1733 




12 02077 861277 


61277 




13 02100 «t62677 


62677 




14 02101 i>04429 


4425 




15 02102 (<ei44e4 


404 




16 02103 000775 


776 




17 021M 102520 


102520 




18 02105 004421 


4421 




l» 021i»6 125113 


125113 




20 02107 U00775 


775 




21 02111* 102400 


102400 




22 .12111 004416 


4416 




23 02112 127113 


127113 




24 02113 000778 


776 




25 02114 020430 


20430 




26 02115 004412 


4412 




27 02116 142034 


142034 




28 02117 000776 


776 




29 02124 101120 


101120 




30 02121 004406 


4406 




31 02122 000402 


402 




32 02123 000754 


754 




33 02124 020421 


20421 




34 02125 000377 


377 




35 02126 152221 


152221 




36 02127 152000 


152000 




37 82130 061077 


61077 




38 02131 063577 


63577 




39 02132 000777 


777 




40 02133 064377 


64377 




41 02134 147400 


147400 




42 02135 072577 


72577 




43 02136 151220 


151220 




44 02137 151220 


151220 




45 02140 125213 


123213 




46 02141 125122 


125122 




47 02142 001401 


1401 




48 02143 001400 


1400 




49 02144 000010 


10 




50 02146 000104 


104 




51 






52 


LPLP3I 


LOOPS 


53 02146 006247 




JSH 0ITET 


34 02147 006214 




JSH 0ICYC7E 


35 02150 102400 




SUB 0,0 


36 02151 040237 
37 

38 02152 000402 




311 0,ERTSI 




J IIP ,*2 


59 02133 000015 


TN15I 


16 


30 02154 020136 


ET15I 


LOA 0,TSTNM 



ISO TO CYCLE OH TEST ROUTINE 
rCLEAR AC0 
ICLEAR ERTS1 



0040 FPYDI 

01 02155 024776 

02 02156 122454 

03 02157 006236 



LDA 1,TN1S 
SUBO» 1,0, SZR 
JSP DISEQER 



I CHECK THE PROGRAM FLOW 



0041 FP 
ill 
612 
00 
tt 

05 0?16u 
Bb 

27 02161 
0b 02162 
0U 02163 

10 021S4 

11 02165 

12 02166 

10 02167 

11 02170 

15 i<2171 

16 t!2172 

17 02173 
IB 02174 
IV 19217!) 
2d 02176 

21 02177 

22 1122814 

23 02201 
2« 02202 
29 022P3 
2b iJ2204 
27 02203 
2b 112206 

29 02207 
3a (-2210 
•51 12211 
32 02212 

30 (12213 
34 

39 02214 

36 02215 

37 02216 
36 02217 

39 02220 

40 02221 

41 02222 

42 02223 
4? 02224 
44 02225 
49 02226 
46 

47 
40 
49 
50 
51 
52 
5o 
54 
59 
5b 
57 
56 
56 
60 



l« 



(TST*16 4THIS IS THE END OF THE TESTS* 



010136 TST161 ISZ 



1PI24B0 
040300 
040257 
040235 
040136 
030272 
151005 
P 4 V, 4 
101240 

04BHS 

1024H0 
03024B 

1514BH 

050240 
024176 
133435 
000407 
101240 
040116 
034234 
179005 
000753 
O02271 
o4^240 
0lo2o3 
024272 
125004 

0o04o2 
0401 16 
0242,15 
030163 
147414 
002271 
0P611P 
O05B5I 
0242o3 
W06?i2 
002271 



EN0F1I 



EN0P2: 



SUB 

ST» 

ST* 

ST* 

ST* 

LD* 

MOV 

JMP 

MOVOR 

ST* 

SUB 

LU* 

ISC 

ST* 

LU* 

*NDi# 

JMP 

MQVUP 

ST* 

LU* 

MOV 

JMP 

JhP 

ST* 

IS>Z 

L0» 

MuV 

JMP 

ST* 

LU* 

LD* 

ANOB 

JMP 

JSR 

ENOFP 

LB* 

JSR 

JhP 



TSTNM 

0,0 

0,LPNM 

0,F.KTS1 

B,COENT 

B, TSTNM 

2.DRII 

2,2,SNR 

enofi 

0,0 

0, FLAGS 

0,0 

2.PASST 

2,2 

2,P*SST 

1,B1T15 

1,2, SNR 

ENOFT 

0,3 

B,FL»GS 

J.NUDEV 

3, 3, SNR 

ENOFS 

•IBGN1 

0,P»SST 

P»SS 

1.DKII 

1,1, S^R 

EN0F8 
B, FLAGS 
l.SWREG 
2.BIT4 
2, 1,SZR 
• IBBN1 
»IMES5 

1,PASS 

•IZ0C7T 
• 1BI.N1 



(ENTERING * NEtl TEST 

(CLEAR ACB 

(CLEAR LOOP * 

■CLEAR ERROR COUNTER 

(CLEAR COMMAND ENTRY FLAG 

ICLEAK TEST NUMBER 

(ARE WE ONLY TESTING 

(DRIVE 1 

I NO 

(SET IT UP FOR DRIVE 1 

(CORRECT THE FLAGS 

(LEAVE ACB«0 

(SET PASS NUMBER 

(INCREMENT IT 

(REPLACE WITH NEW VALUE 

(GET 000 PASS BIT 

(IS IT AN ODD PASS 

(SETUP FOR DRIVE 

(SET ORIVE 1 BIT 

(REPLACE NED FLAGS 

(GET THE NUMBER OF DRIVES 

(ARE THERE 2 DRIVES 

(NO GO TEST DRIVE ONE AGAIN 

(CONTINUE TESTING 

(CLEAR PASS COUNTER 

(INCREMENT PRDGHAM PASS COUNTER 

I6ET DRIVE FLAG 

(DO NE BANT TO DO ONLY 

(DRIVE 1 

(YES 

(REPLACE NE* FLAGS 

(GET THE SWITCH REGISTER 

(t,ET SNITCH 4 

(DON'T PRINT IF SNITCH 4 SET 

(CONTINUE TESTS 

(TYPE END OF PASS MESSAGE 

(GET PASS « 
(PRINT IT IN OCTAL 
(CONTINUE TESTING 



THIS IS THE COMMAND STRING INTERPRETER 

INPUT SHOULD BE TYPED AS 

COMM AND, UNIT*, PATTERN, TRACK*, SECTURKCCR) 

EXAMPLE SEEK, I, 0, 1,7 

SEEK TRACK 1 OF UNIT 1 ,THE SECTOR AND PATTERN A 
ARE IGNORED BUT MUST BE TYPED ANYWAY 

READ, 0, 0, 1,7 

Rfc»D TRACK 1 SECTOR 7 OF UNIT B 

"ITH A PATTERN OF ALL ZEROS 



0042 FP 

01 
02 

03 

04 

at 

06 
07 
06 
ill 0222/ 

10 L2230 

11 02231 

12 02232 

13 02233 

14 02234 
19 02235 

16 02236 

17 02237 
IB 0224,* 

19 02241 

20 02242 

21 02243 

22 02244 

23 02249 

24 «224b 
29 

26 02247 

27 0225o 
26 02251 
29 02252 
3k. 02250 

31 U2254 

32 (,2299 

33 02256 

34 U2257 

35 d226o, 
3b d226l 
37 0.2262 
3b 02260 

39 02264 
4«i 02265 

41 1-2266 

42 02267 

40 o227o 
44 02271 
49 02272 
4b 02273 
47 02274 
4b 02275 

49 0227b 
5u 02277 

91 02300 

92 02301 

50 02002 
54 B2303 
59 i»2304 

56 02305 

57 «2O06 
5b 11230/ 

59 0,2310 

60 02011 



"RITE, 1,177777, 45, 2 

WRITE TRACK 45 SECTOR 2 OF UNIT 1 WITH A 
PATTERN OF ALL ONES 
IN THt CASE OF A READ THE PATERN ENTIREO WILL BE WRITTEN 
IT IS REAO THIS WAY THE PATERN SMOULO BE THERE 



(.09110 COMSTl 

003775 

15240P 

k,P613P NEXT I 

0001404 

151014 

000422 

U00771 

151U4 4SKI 

000772 

151400 

034112 

054020 

036227 StRCHI 

162415 

0004(54 

1751*14 

01* (1774 

000756 

o39»20 Fill 

024113 

044021 

(56021 

o 7 5 4 

00613d unito: 

(1*0747 

(106253 

125004 

000403 

4 4116 

7 v\ 4 o 3 

•"24)57 um:ith 
( 441 16 
e0biO0 PAKx: 

1 02292 
0(16253 
(.44263 
o 091 Of 
O02252 
006254 
(.00405 
•■34250 
094020 
046020 
00041 1 

OJ4290 Noexi 

054020 
046020 
«,06130 
(02252 
••04251 



JSR 
ENCMS 

SUB 

JSR 

JMP 

MOV* 

JhP 

JMP 

MOV* 

JMP 

INC 

LU» 

ST* 

LD* 

SUB* 

JMP 

MOV* 

JMP 

JMP 

L0» 

LD* 

ST* 

ST* 

JMP 

JSR 

JhP 

JSR 

MOV 

JMP 

ST* 

JMP 

LU* 

ST* 

JSR 

JhP 

JSR 

ST* 

JSR 

JMP 

JSR 

JMP 

Lb* 

SI* 

ST* 

JMP 

LU» 

St* 

ST* 

JSR 

JMP 

Lu» 



•IHES5 

2,2 

UTINTO 

tSK 

2,2,SZR 

UNETB 

CONST 

2,i!,SZR 

ne>:t 

2<S! 

3,1C0MT 
3.BUFPT 
3,»BUF PT 
3,0, SNR 
FI> 

3,3,SZR 

SERCH 

COMST 

3,»8UFPT 

WICOMY 

liCBUFP 

3,»CBUFP 

NEXT 

•1TINT0 

C0X3T 

flGOOD 

1,1, SZR 

UNIT! 

I, FLAGS 

PAEX 

l,BITtt 

I, FLAGS 

PITIN70 

PICONS 

PIGOOD 

1,WPAT 

PITIN70 

PICOMS 

»I500S 

NUEX 

3.IC0M1 

S.BUFPT 

l,#BUFPT 

COMBG 

3.IC0M1 

3,PUFPT 

l,»4UFPT 

PITINJO 

HCDMS 

3,l:0M2 



(ASK FOR COMMAND STRING 

(CLEAR AC2 

(GET THE COMMAND 

(GO FIND THE COMMAND 

(HAS HE GIVEN US A COMMAND 

(YES SO SET UNIT » 

(NO SO ASK AGAIN 

(IS IT FIRST LETTER 

(NO DISREGARD THE REST 

(INCREMENT AC2 

(GET TABLE ADDRESS 

(SAVE IT FOR LOAOING 

(GET COMMAND FRO TABLE 
(HAVE WE FOUND A COMMAND 
(YES SO LOAD IT IN COMMAND 
(EXECUTER 

(ARE WE AT THE ENU OF THE TABLE 
(NO CONTINUE SERCH 
(YES, INVALID COMMAND TYPED 
(GET THE FUNCTION 
(GET ADDRESS OF STORAGE 
(SAVE TO POINT 
(STORE THE FUNCTION 
(GET NEXT CHARACTER 
(GET THE UNIT • 
(ALPHA CHARC TYPED 
(SEE IF CORRECT TERMINATOR 
(IS IT UNIT tt 
(SET IT UP FOR UNIT 1 
(CORRECT THE FLAGS 
(GO EXECEPT PATTERN 
(GET UNIT 1 BIT 
(CORRECT THE FLAGS 
(GET THE PATTERN 
(NO ALPHA ACCEPTED 
(SEE IP GOOD TERMINATOR 
(STORE PATTERN AT WHAT PATTERN 
(GET THE TRACK * 
(NO ALPHA ACCIiPTEO 
(SEE IF , OR START COMMAND 
(ACCEPT TRACK BUT NO EXECUTION Y 
(GET POINTER TO TRACK STORAGE 
(STORE SO I CAN LOAD 

(STORE TRACK ADDRESS 
(GO EXECUTE 

(liET POINTER TO TRAK STORAGE 
(STORE IT AT POINTER 
(STORE TRACK 
(GET SECTOR AUDRESS 
(TYPED AN ALPHA CHARACTER 
(GET POINTER TO SECTOR STORAGE 



0O43 FHV 

32 u23io 

813 k'2311 

34 oeju 

3b »23I6 
ft 02317 
07 

06 

1H 
11 
12 

13 0232* 

14 02321 
lb «>232i! 

16 02323 

17 02324 
lb 

19 2232b 

20 <;23Jt> 

21 B2327 

22 023?P 
S3 023M 
24 023J2 
2b 

26 

27 

26 

29 KI2333 

SB 02334 

31 o233b 

32 02336 

33 H2337 

34 0234H 
3b 02341 
36 K2J42 

37 

36 
39 
40 
41 

42 £2343 

43 (2344 

44 t.234b 

45 02346 

46 02347 



UI 

O540 2i» 
046020 

ie62bS C0M6GI 
*63710 

W*t>2u6 
000775 



STA 3,8UFPT (STORE AT POINTER 

STA 1,»BUFPT ISTuHfc SECTOR ADDRESS 

JSR #ICOMfc ICO 00 THE COMHANO STRING 

SKPOZ TTI (ANYTHING TYPED ON TTY 

JSR PIINP? IYES GO SERVICE 

JNP COHBG (NO DO STRING AGAIN 



054223 GOODFl 

034236 

162415 

002252 

002223 

B54223 GOOSt 

03423S 

162414 

o»2223 

U10223 

002223 



Sl» 
LDA 

SU8« 

jmp 

Jmp 

STA 

L0» 

SUBS 

JMP 

ISZ 

JMP 



oooooo comibi 

otto 123 
006103 
000122 
JI06127 
«lll» 
006127 
000000 



B54260 CUHEXI 
oooooo COmyi 
oooooo 

000000 
HO22O0 



"S 
J5« 



JSR 




THIS IS USED TO CHECK GOOD TERMINATOR 
IN COMMAND STRING 



3, RET 
3,C15 

3,0, SNR 

PICOMS 

#RET 

3, RET 
3, CIS 
3,0, SZR 
«RET 

RET 
• RET 



(SAVE RETURN ADDRESS 
IUET CARRAIGGE RETURN 
IIS IT A CARRAIGE RETURN? 
(YES, AND IT SHOULD NNOT BE 
IHETURN TO CALLER 

(SAVE RETURN ADDRESS 

(GET ASCII CARRAIGE RETURN 

IIS IT A CCR) 

(NO RETURN TO CALLER 

(RETURN TO CALLER TO EXECUTE COM 

(GO DO IT 



THIS IS TTHE COMMAND TABLE 



•ISEAK 
•INCP2 
»IHCP2 



(SEEK FUNCTION 
(READ FUNCTION 



(WRITE FUNCTION 
(6.N0 OF TABLE 



THIS IS THE COHMANO EXECUTOR 



STA 





3,C0MRE 



(SAVE RETURN ADORESS 
(HERE ISS WHERE THE 
(THE COMMAND, TRACK 
(ANO SECTOR IS STORED 
(RETURN TO CALLER 



1C044 FPY 

01 

si 2 

33 

04 

3b 

06 

07 

Hb b235l) 

09 

10 o?351 

11 K2352 

12 02353 

13 02354 
14 

15 023S5 

16 U2JS6 

17 192357 
16 0236t> 
ii 

20 02361 

21 02362 

22 02363 

23 «)2364 

24 «>236b 
2b 02366 

26 02367 

27 O2370 

28 02371 

29 32372 

30 02373 

31 02374 

32 02375 

33 02376 

34 023/7 

35 32400 

36 02401 

37 02402 
3b 02403 
39 

40 02404 

41 o240b 

42 02406 

43 02407 

44 02410 
4b 02411 

46 02412 

47 02413 

48 02414 
4* B241S 

50 02416 

51 02417 
52 

53 O2420 

54 02421 
5b 02422 

56 02423 

57 02424 
56 02425 

59 02426 

60 ((2427 



(*••*»• 

I 

S0611O FOWLI 

003731 

102400 
040126 
020241 

18ll4ae 
101AOO 
040021 
020242 

0400281 
006130 
004421 
000764 
010126 
B06130 
004415 
OOO760 
076130 
084412 
3*0755 
02602* 
046021 
006130 
000421 

1 0124a" 

024243 
046721 

006241 

054260 FCSH1 

030126 

151015 

OO04O7 

432020 FCSH2I 

112415 

004184 

151004 

000774 

Oi*2260 

01026? FCSH1I 

O022b0 

854067 FCSSI 
004763 

000726 
026020 
014021 
032021 
133000 
014321 



THIS IS Tne FUNCTIION COHMAANQ SRTING INTERPRETER 



JSR 

TYFH 
SUB 
STA 
LDA 

INC 
INC 
STA 
LDA 

STA 
JSR 
JSR 
J»P 
ISZ 
JSR 
JSR 
JHP 
JSR 
JSR 
JMP 
LDA 
STA 
JSP 
JMP 
SUB 
LDA 
STA 
JSR 

STA 

LDA 

MOV* 

JHP 

LDA 

SUB* 

JMP 

HOV 

JHP 

JHP 

ISZ 

JMP 

STA 
JSR 
JMP 
LDA 
DSZ 
LDA 
ADD 
DSZ 



»IHESS 



0,0 

8, RCOUNT 

B.IFUNX 

0,0 
0,0 

0,CBUFP 
O.IFNTB 

0.BUFPT 

PITINtO 

FCSH 

FONL 

RCOUNT 

UTINTO 

FCSH 

FOUL 

UTINTO 

FCSH 

FONL 

l.PBUFPT 

l.PCBuFP 

UTINTO 

FCSS 

0,0 

l.NOFUN 

i,»cbufp 

PIFUNX 

3,C0MRE 

2, RCOUNT 

2,2, SNR 

FCSH1 

2.PBUFPT 

0,2, SNR 

FCSMt 

2,2,SZR 

FCSH2 

PCOMRE 

COHRE 

PCOHRE 

3,RTNH 

FCSH 

FOWL 

l.PBUFPT 

CBUPP 

2.PCBUFP 

1,2 

CBUFP 



(ASK FOK THE FUNCTION TO 
(BE PREFORMEO, 

(CLEAR ACB 

HAVE IN COUNTER 

(GET THE FUNCTION ROUTINE 

(STARTING ADDRESS 

(INCREASE BY 1 

(INCREASE IT BY I 

(SAVE THE POINTER 

(GET THE FUNCTION TABLE 

(ADDRESS 

(SAVE THE TABLE POINTER 

(GET THE FIRST CHARACTER 

(CO SEAARCH THE TABLE 

(CAN'T ACCEPT A NUMBER 

(INC FOR 2ND CHAR 

(GET THE SECOND CHARACTER 

(GO SEARCH THE TABLE 

(CAN'T ACCEPT THE CHARACTER 

(GET THE 3R0 CHARACTER 

(GO SEARCH THE TABLE 

(CAN'T ACCEPT THE CHARACTER 

(GET THE FUNCTION 

(STORE IT IN THE ROUTINE 
(GET THE S,C, OR NO FUNCTION 
(GO SEARCH FOR IT 
(CLEAR ACB 

(STORE THE NO.OP 
(GO 00 THE FUNCTION 

(SAVE THE RETURN ADORESS 

ISEE IF ITS FIRST ITHE THROUGH 

IIST t 

(RETUHN TO CALLER 

(SEARCH THE COMMAND TABLE 

(DID HE FIND A NATCH 

IYES 

(IS IT THE END OF THE TABLE 

(NO KEEP SEARCHING 

ICARACTER IN ERROR 

(GOOD FINO 

(RETURN TO CALLER 

(SAVE RETURN ADDRESS 
(FIND THE CHARACTER 
(010 NOT FINO 
(GET THE FUNCTION 
(OECRIHENT ROUTINE POINTER 
(GET THE FUNCTION 
(ADD THE S,C 



i'«<i5 fp 

811 «243o 
P2 02431 
*i oP43i 
B4 02433 
<ii 612434 
■Jib 02435 

a? 

A8 02430 
Oil 02437 
<,244w 
02441 

12 02442 

13 F244.J 



lis 
11 



YOI 
o52P21 
076o2» 
046021 

0P5150 
0P1013A 

010712 

iaa?n5 

024157 

o4oll« FCSSi: 
002241 



14 
15 
16 
17 
10 
1S< 

20 (12444 

21 02445 

22 02446 

23 32447 

24 e245o 

25 02451 

26 »2«52 

27 0245.3 
2b 

29 
30 
31 
32 

33 02464 

34 02455 

35 61245b 

36 02457 

37 0246B 
02461 
32462 

4|K ,12463 
41 02464 
4* 6*2465 

43 0246b 

44 02467 
4b 02470 
4b «)247l 
47 »32472 
4t> 02473 
4y 02474 
56! ,,,2475 

51 o2476 

52 «)2477 
53 

54 

55 

5b 

5/ a25Pt 

5a 0256-1 

5SI o25«!2 

RU 02603 



10240O FuEX: 
o 6 c 7 7 
6)06! 11 
6IP1OP108 
oPwBOP 
OS3716! 
0A62W6 
00077 1 



3a 



OPlOAow FUNTBl 

opal 17 
oeo loi 

tf62{*CSPt 

* 1)0111 
C* 1 1 

6 o 4 is 6* 
000102 
K614«o 
000103 
06240?. 
o?M23 
o^olop, 
060077 
w * o I o 3 
H 2 61 
obot*77 
opioid FNTBEI 

(•»»*•• 

I 

(•»•••« 



054223 PTSTBl 
0242o5 
o3o 1 06 
14/414 



!1« 2.PCBUFP (RETURN THE CORRECTED FUNCTION 

LuA 1,#BUFPT (GET THE NEXT INSTRUCTION 

STA 1,#CBUFP (STORE IT IN THE ROUTINE 

JSR »IMESS (ASK HHAT DRIVE 

MHDR 

JSR »ITXN?0 (FIND OUT WHAT UNIT 

JHR FO«L (CAN'T ACCEPT THE CHARAC. 

MOV 1, 1,SNR /UNIT OR I 

JMP FCSSI FUNIT a 

LOA l.BITts (SET UNIT 1 BIT 

STA 0. FLAGS (CORRECT THE FLAGS 

JHP HFUNX (GO DO THE ROUTINE 



function command executor 



SUB 
JSR 
JSR 



• IOKI 
•IDOOA 



SKPOZ TTI 
JSR FIINP? 
JNP FUEX 



(CLEAR ACk) 

(SET THt SETTLE FOR THE CORRECT 

(ISSUE THE FUNCTION 



(•AS A KEY HIT 

(YES 

(DO THE SETTLE AGAIN 



FUNCTION TABLE 



"0 

"A 

DOA 

»B 

BOB 

"I 

"A 

DIA 

"H 

DIB 

11 C 

DIC 

"S 

IB* 

NIL) 

"C 

26)61 

NIO 

u 



B.FPY 
pj.fpy 

tl,Wft 
H.FPY 
P.FPY 



CPU 
CPU 
THIS PRINTS THE TtST « AT BEGINING OF TESTS 



sr» 

LUA 
L0» 
ANDB 



3, RET 

l.SNREG 
2.BIT7 
2,1, SZR 



(SAVE RETURN AOORtSS 

(GET THt SNITCH REGISTER 

(GET SWITCH 7 

(UON'T PRINT IF SNITCH 7 SET 



u 


P46 FMYUI 










01 


»125(i4 


OC2223 




JMP 


»RI£T 


(RETURN TO CALLER 


*t 


oPSPb 


Lfollil 




JSR 


#IHESS 


(PRINT TEST # 


Hi 


o25Pb 


^»5362 




TfcTNM 






04 


6>2567 


.,24136 




LUA 


l.TSTNH 


(GET THE TEST NUMBER 


016 


1*2510 


0C6212 




JSR 


♦IZOC»T 


(PRINT THE VALUE 


DO 
07 


d25U 
6,2512 


0^2223 
«J54225 




jhp 


• HF.T 


(RETURN TO CALLER 


Hi 
10 
11 
12 


1 


This ! 


INCREMENTS ERTS1 


IF AN ERROR OCCURRED 


TtT: 


STA 


3.REET 


(SAVE RETURN ADDRESS 


13 


te25]3 


-*h371?l 




SUPDZ 


TTI 


MAS TTY KEY HIT 


14 


612514 


090206 




JSR 


♦IINP? 


(YES 


15 


112515 


622073 




LDA 


B.PIITR 


(GET ERROR COUNTER 


16 


6,2510 


1016-oS 




HOV 


o,B,SNR 


(■AS THERE ANY ERRORS 


17 


02517 


6,?0417 




JHP 


TET2 


(NO 


lb 


H252B 


o202«5 




LUA 


61,SHREG 


(GET THE SWITCH REGISTER 


la 


02521 


024165 




LDA 


1iHIT7 


(GET SNITCH 7 


261 


U2522 


1!«/414 




AND* 


0,1., SZR 


(OONtT PRINT IF SWITCH 7 SET 


21 


02523 


0W04 1 3 




JHP 


TtT2 


(CONTINUE 


22 


6)2524 


0« , 6B74 




JSR 


»IERME 


(PRINT THE TEST NUMBER 


23 


1,2526 


0P15362 




TETNH 






24 


02520 


020257 




LDA 


B.SiRTSl 


(GET THE ERROR COUNTER 


26 


«/2527 


1HPB4 




MOV 


0,(1, SZR 


(FIRST ENCOUNTER? 


2b 


02530 


P bi 4 6', 3 




JMP 


TETI 


(NO, DON'T PRINT 


27 


6,2531 


024136 




LDA 


l.TSTNM 


(GET THE TEST NUMBER 


2b 


6'2532 


'»">62 12 




JSR 


»ii:oc?T 


(PRINT IN OCTAL 


2S( 


U2533 


<10257 


TETi: 


ISZ 


ERTSl 


(INCREMENT THE ERROR COUNTER 


30 


02534 


o6"H4 K 2 




JhP 


TET2 


(RETURN TO CALLER 


31 


6,2535 


r'6oB77 




NIO 


CPU 


(NO-OP 


32 


«2S3b 


0203oP 


TET2( 


LUA 


B.LPNH 


(GET THE LOOP ON TEST VALUE 


33 


6-2537 


I'/lBOb 




"OV 


e,ei,SNR 


(ARE HE LOOPING ON A TEST 


34 


<,254l< 


1-6)2225 




JMP 


»REET 


(NO RETURN TO CALLER 


35 


»254l 


,"34463 




LDA 


3,TSTbL 


(GET TEST TABLE ADDRESS 


36 


t,2542 


I 176-OI" 




ADD 


a,:; 


(CREATE POINTER TO TEST 


37 












(BEING LOOPED ON 


38 


02543 


C21401' 




LDA 


, fi , 3 


(GET TEST STARTING AODRESS 


sy 


02544 


t-4'4225 




STA 


H,REET 


(FIX THE RETURN ADDRESS 


4„. 


«2545 


1P2400 




SUB 


e,ei 


(CLEAR AC6) 


41 


«254b 


^40237 




STA 


B, ERTSl 


(CLEAR THE ERROR FLAG 


42 
43 
44 


1,2547 

(•2550 


t!"22?5 
6 54225 




JHP 


#REET 


(RESTART THE TEST 


45 
4b 


J 




HERE IS WHERE 


I LOOP ON SELECTED TESTS 


47 

4b 


TtTLPI 


STA 


3.REET 


(SAVE RETURN ADDRESS 


iil 


»255l 


l -B61 11» 


LPl: 


JSR 


•ICESS 


(ASK FDR TEST » 


50 


W2562 


OK5362 




TITNM 






51 


«255j 


.' 1 6 1 J 


UPS: 


JSR 


»ITINTO 


(ACCEPT THE * 


52 


02554 


rnt775 




JHP 


LPl 


(NO ALPHA 


63 


02565 


044306' 




STA 


l.LPNM 


(SAVE THE TEST * 


54 


t;255b 


K441 J6 




STA 


1,TSTNM 


(SAVE THE CORRECT TEST « 


56 


6j2557 


034304 




LU« 


3,TfcTHX 


(GET THE MAX TEST # 


5b 


o256i 


166404 




sua 


3,1, SZR 


(SEE IF LEAGLE TEST « 


57 


n25bl 


4 2 1> 




JHP 


LPS 


(SEE IF LESS THAN MAX * 


5B 


612562 


ol02»3 


LP'! 


ISZ 


PASS 


(INC THE PASS COUNTER 


5b 


02363 


o3ol74 




LuA 


2.BIT13 


(FIND OUT IF TEST 14 


6 ii 


l'2564 


034173 




LUA 


3,BITJ2 


(IS THE TEST » 



) 



KJMWMMM 
U* » fh tk d *fc 



MUfcKbN 



nj o t» *> IA »C fc- K 'vlO'«fcOFO«-<5 V IT O 1 k Ol K ►* r *«J <7 O X 



VVDOIWffffOllDillVIliO (J O Ol S 

H(JiaNSW«>4UM>'k&»gi 0» »- « "4 ^6NHHS»"-6lUIUISSSU»SkM»8S^PCOI^S 



HCDHC-» 



•.*<■<.* • o 

ihhOhX * >■ 

; i oc am to 

1 C X X X » -H 

-»ini-i> » x 





♦ .-. 


innMOo 


* JC 


»• mm > m » 


* x 


w -i -« -c -i ■< 


* *- 




• -i 


-» -4 TO 


• m 


•-■X IMC 9 


* w 


-€ ni m z "" m 


• 


X -4 


• X. 


— i z a) *■ m c 


• •-» 


xxccaa 


» -t 


W *« -ft ■■« X 


* X 


-1^01 


* 


inn »• »■ 


* » 


x * « -« o 


• r- 


*-i IB Z-iO 


* i- 


•icvnnx 


* 


m -n >■ xm 


* -# 


X-*f~ z 0» 


• m 


a? m -* o en t» 


* en 


c x m r» 


* ~* 


x x » 


* 


x > z o 


* X 


mo o 


» >■ 


* o m x< 


• -t 



) 



-I -* 

id a? 



V in in « ui en (• c 
-«-« -t -4 -«-<-« - 

** *. ^- »-* v* t- -m ( 

u«.un»tn * 4 



O) O) Ot OO — I — * W 2 U-HD 
-» -I -H -* ► *• -I «*»-». 

U *. b< Iti -I -< CD 
♦ ♦ ♦ ♦ « « fti 



X »-i» » 
tt. *' -11 CD 

n r~ •-» 



r,H»Bi[«Mi,t, n,wri>rruii xoicitxccotr*- 

0,(^-1-1 j C XX03-«00C , O-«OO — U»IO)3CCC 
XN»fr»D)1'Q<'V> ■* O ► •■ ^-<r«»XX©XXID»»0 



• x *- — *- *- i-f- i 
»-t c* ■• •• •» XX' 

X O O Z X~ >* »- ■ 

o m x c r- 

x < •-« o *■ 
»■ *- m <n 

-* •< Ok 



iC--*.»»-*-*»i.»T)*~) Mill * ' 

'fnasMrniCfOiin x w »- r - 

» mm* x u> r~ -* x f* m » x 

ot-tmoit z -i »■ c« *-« z « id z 



m -c »■ 

X 



ixnntan-itBt-iCiCA^ociCTce 
)orrnrnt> c«o>oxmm> 
sxmm-fmcec < o m -i -i ■< 

t n v » >-« »-f o m x »■ m 

. m x x -< x -f-io m -i — i -t 
• x «m HuniiiH 

to tni» wiHiai mmx 
iox rio-tmxm x m 

c«MO""**3t zm >c-*-i 
it -<mr- arc »z*-«mrao 

om<»» »»HDCZW«]) 

in ho mo -<-«-«h 

i< * n CO HXE1P1 •< 

»•-■ m -■ m x x z -* m 

(o-iuh *n »• c> 

nmo o (nn-i jvo 

« tn o mi-«-« 

mo *-i m m -« 

C -4 X ~4 CO X 

<0 M -H >■ 



□ v»oin o m co r 

•< -i * tm 
t* t-* m >■ *-• 

O — I T~ — I KO-H- 



O X 

X 

t-« r* 

■<: 
ma 



fftraoaff atr ffccrffo 

VOKTlOXROVCIIUUlUUlU'T 

w MfM^K ■ , sJ<F^^'fc.o•^3•-x 

■< 

S> S WW WUUS b U Ul W Ut w 



t,i,oirr«rt 1 »roirw 
3 zxcroo— io^c <r-*c-i 
xxv>» »>>xn»»»'»> 



tOWUNNNONNIOlOU 

X O-" ••■-■-■• o» » • - » 

rniNvnoHiiHaiitn 

-< ►■•» cncs>< c o tc a 

n»ictiti*- uiiacc 

npiitix f«»xc:-»t-*i 

xox-*» xrniin 



»nwMjif)iti ici«dp( 
mozam>-mo» m-«mi 

-4 Z O -#•<-*-• <-IO-t« 

c -t m n mm x r 
xt-io-^n o= m o m fj 

z z -wi c -• c m x. c ►► 



fx -• »■ x kc z i-« x ; 
o o -^ o o m x -» z z 

4~ox o x »- oc >- a> i 

rH4«on-4 « o c 
mz cxt»-fO4 0-w c 

xn ^nttninn 

■«j » x o m • 

m m z x in 



o-tm 



mac 

<» c it 

» X X 

"*t m 

m x 



UBSB FFYGI 
HI 



10049 FP 
01 

03 

04 
05 

06 o266o 

07 02667 
0b 02670 
Bfc 02671 
It; 02672 

11 02673 

12 02674 

13 02675 

14 02676 
t5 8267/ 

16 O27P0 

17 t27»l 
IB 027C2 
19 B27HJ 
2H D27M 

21 e27ea 

22 02706 

23 vVlil 

24 0271U 
85 02711 

26 ti2712 

27 o271J 
2B (12714 

29 02715 

30 02716 

31 22717 

32 B272C 

33 02721 

34 i)2722 

35 02723 

36 02724 

37 02725 
3B 02726 
3S B2727 
4a 02730 

41 02731 

42 02/32 

43 02733 

44 02734 

45 02735 

46 02736 

47 02737 
4e o274o 
4* 02741 



000000 BFPATl 

000000 
177777 
17777* 
177774 
177770 
177700 
17774V 
1777o0 
1775H* 
l774to 
1770ot. 
176C 00 
1 7 4 » m a 
170000 

160000 
140000 
104|rpu 

000001 
t.00002 

PI 9 11 a 4 
000010 
2 
000040 
1 0100 

4XT f a ■" «* 

000400 
A 1 IS 01 
002000 

004000 
oloooo 
020000 

O4000O 

100000 
052525 
125252 

uini 

122222 
133333 
144444 
155555 
166666 
177777 

000000^ bfpeo: 



BUFFER PATTERN 



1 



-1 

-2 

-4 

-IP 

-2C 

-48 

-iee 

-200 

-tee 
-leee 

-2000 

-4000 

-ibobo 

-20000 

-40000 

-10000,0 

1 

2 

4 

10 

20 

40 

100 

2n>8 

400 

1000 

2000 

4 000 

10000 

20000 

40B00 

10G000 

052525 

125252 

HUH 

122222 

133333 

144444 

155555 

166666 

177777 



10851 FPV 

31 

82 

03 
84 
as 

86 
07 

an 
tt 

10 

li «274a 

12 B274J 

13 82744 

14 02745 

16 82746 
lb 32747 

17 82793 
IB (12751 
19 82752 
28 0275o 

21 02754 

22 82751 

23 82756 

24 82757 

25 0276* 

26 82751 

27 82762 
26 

29 
38 
31 
32 

33 82765 

34 82766 

35 82767 

36 82778 

37 82771 
36 82772 
39 82773 

48 82774 

41 82775 

42 82776 

43 82777 

44 03308 

45 83881 

46 33«8<: 

47 83«f.3 
46 

49 83884 

58 83803 
51 83886 
Si 83887 
53 83318 
34 83811 

55 03812 

56 33310 

57 83«,)4 
56 83813 

59 83816 
68 



ITHIS StCTION CONTAINS THE READ .WRITE AND TIME SUBROUTINES 
I IT ALSO CONTINS ALL THE DIAGNOSTIC SUPPORT ROUTINES 

itnnit/timimitiiiiititiiitiiiiimitititiinimiiititiiit 

1 SEEK SUBROUTINE 

I WHEN CALLED NEXT WORD AFTER JSR CONTINS THE TRAK TO BE SEEKED 

i? n unit mt nit it it mm nn nn it it nit it tin tin it nit mi 



32760 
32764 



354226 
A54137 
386875 
886111 
376488 
175388 
£24156 
137428 
824157 
332226 
858444 
156425 
10*8437 
328137 
181484 
888485 
886874 



885863 
883435 

888438 
828146 
854137 
167435 
883421 
386877 
88B111 
861188 
306135 
886111 
873488 
83416? 
157415 
883482 
083483 

813137 

883766 
102488 
183088 
848137 
883733 
323143 
174488 
818753 
318226 
313226 



SEAM 



ST» 

STA 

JSR 

JSR 

01C 

MOVS 

LUA 

ANOZ 

LDA 

LUA 

STA 

suez 
JMP 

LUA 
INC 
JpiP 
JSR 



HEDOF 
JMP 



JMP 
SEAK9S LDA 
MOVHEDI STA 

ANOZ* 
JMP 
JSR 
AGAINI JSR 
OOAS 
JSR 
JSR 
DI» 
LOA 
AND* 
JMP 
JMP 

SCRA1I ISZ 
JMP 

SCRAP! SUB 
COM 
STA 
JMP 

MVHUINI LDA 
NtG 
JMP 

OVEHI ISZ 
ISZ 



3,R?TN 

3, DIFF 

•IRPRt 

»IDOOA 

3.FPY 

3.3 

1.C1778 

1.3 

i,aiTe 

2,»RTTN 

2.SEAK5 

2,3,SNR 

OVER 

0,DIFF 

8,a,SZR 

SEAK9 

PIERME 



SEAM 

OVEN 

0.STEPIN 

3,DIPF 

3.1.SNR 

MVHOIN 

• IORI 

#IOUDA 

0,FPY 

•ITIME 

PIOOOA 

2.FPY 

3, BITl 

2.3.3NR 

SCRA1 

SCRAP 

DIFF 
ASAIN 
8,8 
0,0 

0.OIFF 

SEAK*2 

0,STEPOU 

3,3 

MOVMED 

R?TN 

R7TN 



(SAVE ACS IN RETURN POINTER 

(MAKE SURE DIFF IS NOT -1 

IREAD THE PREAMBLE 

IISSUE FUNCTION 

ISET TRACK 8ECT0R HORD FROM FLOP 

IGET TRACK BITS IN LONER BYTE 

(MASK OUT THE SECTOR BITS 

(AND KEEP THE TRACK BITS 

fREPLACE THE DRIVE BIT FOR FUTUR 

FEET TRACK NUMBER 

rSAVE THE TRACK ADDRESS 

IARE WE ON THE RIGHT TRACK? 

IVES ,80 RETURN TO HMO CALLED VO 

(GET DIFFERANCE STORAGE 

HAVE ME ALREADY FOUND OUR TRACK 

(NO , CONTINUE LOOKING 

ME HAVE AN UNFORMATEO DISK 

I OR HEADS ARE NOT 

(MOVING a , ,«,,,, ,«■■«•*••< 

(TELL THE OPERATOR 

ME HAVE AN ERROR SO SEAK 

IMECHANICALY 

IGO BACK ANO LOOP 

IGET STEPOUT FUNCTION 

(STORE ACS IN OlFPERANCE STORAGE 

(DETERMINE IF MOVE HEAD IN OR OU 

(MOVE MEAD IN 

(SET IT UP FOR CORRECT DRIVE 

IISSUE FUNCTION 

ITELL THE FLOPPY TO HOVE HEAD 

IMAIT FOR DONE 

IREAD STATUS 

IGET HEAD HOME BIT 

IIS THE HEAD HOME 

IKEEP SEAKING 

IGO SEE IF ITS TRACK 

ME ARE SEAKING 

ISEE IF ME KEEP MOVING THE HEAD 

IYES DO IT AGAIN 

IPUT -1 IN AC0 

(MAKE IT •! 

ISTORE IT IN DIFFERANCE STORAGE 

IGO MAKE SURE HE ARE THERE 

ME ARE GOING TO STEP IN 

ICOMPLIMENT THE CONTENTS OF AC3 

IGO MOVE THE HEAO 

IINCREMENT RETURN POINTER 

•INCREMENT RETURN POINTER 

(SHOULD NEVER SKIP BECAUSE OF 



3052 FPVD1 






01 


33817 


882226 


JMP 


»H?TN 


02 


03820 


800080 SEAK5I 


8 




03 


83821 


863710 SEAK4I 


SKPDZ 


TTI 


94 


83822 


00628S 


JSR 


PIINPT 


03 


03023 


324147 


LUA 


1.C77 


06 


83024 


044126 


STA 


l.RCOUNT 


07 


83025 


850773 


STA 


2,SEAK3 


36 


83826 


306111 


JSR 


•IDOOA 


09 


83027 


U7840P 


DIA 


2,FPY 


18 


83030 


834160 


LUA 


3, BITl 


11 


83331 


157414 


AND* 


2,3,SZR 


12 


83832 


000421 


JMP 


SEAK7 


13 


83333 


823145 SEAK2I 


LOA 


R.STEPOU 


14 
15 
16 


03034 


386077 


JSR 


PIDRI 


03035 


80611 1 


JSR 


FIDOOA 


1/ 


83036 


861180 


OOAS 


B,FPY 


16 


03837 


086185 


JSR 


PITIME 


lb. 


03048 


8061H 


JS» 


PIDOOA 


2« 


03841 


860400 


OIA 


B.FPY 


21 


83042 


824160 


LOA 


I, BIT! 


2k 


83043 


143414 


AND* 


2,0,SZR 


23 


83844 


000407 


JMP 


SEAK7 


24 


83045 


814126 


OSZ 


RCOUNT 


26 


83846 


880765 


JMP 


SEAK2 


26 


83847 


006074 


JSR 


PIERME 


27 


83030 


003676 


HOHMC 




26 


83031 


806104 


JSR 


• IEKR 


29 


83852 


083743 


JMP 


OVER 


38 
31 
32 


03353 


023146 SEAK7S 


LOA 


B.STEPIN 


83034 


886077 


JSR 


PIORI 


33 


83055 


830743 


LUA 


2.SEAKS 


34 


83056 


151005 


MOV 


2,2,SNR 


33 


03057 


388406 


JMP 


SEAK8 


36 


03060 


086111 SEAKSi 


JSR 


•IOOOA 


37 


03061 


0«1100 


DOAS 


0.FPY 


36 


03062 


806185 


JSR 


PITIME 


39 


03863 


314733 


DSZ 


SEAKS 


40 


03064 


880774 


JMP 


SEAKS 


41 


03863 


024116 SEAKSI 


' LOA 


1, FLAGS 


42 


83066 


838176 


LUA 


2,SIT13 


43 


33067 


147414 


AND* 


2,1,SZR 


44 


B3b78 


803413 


JMP 


SEAKS 


45 


03371 


147088 


ADO 


2,1 


46 


83872 


044116 


S1A 


1, FLAGS 


47 


83873 


886118 


JSR 


flMESS 


46 


03074 


804763 


RDPAF 




49 


03875 


826226 


LDA 


l,»RTTN 


33 


83076 


806212 


JSR 


•IZOCTT 


31 


03077 


300707 


JMP 


SCRAP 


32 


83103 


824285 SEAKSt 


LOA 


l.SwREG 


53 


83181 


b3Bl60 


LDA 


2, BITl 


54 


83102 


147414 


AND* 


2,1,SZR 


53 


03183 


063077 


HALT 




5b 


83184 


K14U6 


DSZ 


FLAGS 


57 


33103 


800637 


JMP 


SEAK«2 



IRETUMN TO THE CALLER 
ITRACK STORAGE FOR MECM SEEK 



IGET THE MAX * OF TRACKS 

ISAVE SO HE OONIT HANG UP 

(SAVE THE TRACK ADDRESS 

IGET THE STATUS 

IGET THE STATUS 

IGET THE HEAD HOME BIT 

IIS THE HEAO HOME 

ITES 

IGET TTME STEP TO FUNC 

ISET THE STEP COMMAND TO THE 

ICORRECT DRIVE 

IISSUE THE FUNC 

(ISSUE STEP COMMAND 

(WAIT FOR DONE 

(READ THE STATUS 

(GET THE HEAO HOME BIT 

(IS THE HEAD MONET 

(YES 

(DEC THE MAX TRACK COUNT 

(CONTINUE TEST 

(REPORT HEAO HONE FAILURE 

(REPORT STANDARD ERROR 

IRETURN TO THE CALLER 

IGET CORRECT FUNC TO ROSS 

IITION THE MEAD 

ISET IT UP FOR CORRECT DRIVE 

IGET THE TRACK ADDRESS 

IIS IT TRACK IT 

IYES 

IISSUE THE FUNCTION 

MAIT FOR DONE 

•DECREMENT THE TRACK COUNT 

IISSUE HEAO STEP AGAIN 

IGET THE FLAGS 

IGET FATAL ERROR FLAG 

IHAVE WE HAD A FATAL ERROR 

IYES SEE IF WE CAN LOOP ON IT 

ISET THE FATAL ERROR FLAG 

ISAVE THE FLAGS 

IREAD PREAMBLE FAILURE 

IGET THE TRAK ADDRESS 

IPRINT THE TRAK * 

IRETURN TO VERIFY THE TRACK 

IGET SWITCH REGISTER 

IGET THE NO LOOP ON ERROR SNITCH 

ISEE IF NE LOOP ON ERRORS 

INO SO STOP ON FATAL ERROR 

ICLEAR THE FATAL ERROR FLAG 

•CONTINUE 



10053 FPY 

<11 

02 
■a 

QA 
05 
0b 
7 

06 

0S 

H 
11 

12 «310o 

13 03107 

14 03110 
lb 03111 
lb 03112 
1/ 
IB 03113 

15 03114 

20 031 1» 

21 H3116 

22 il3ll7 

23 03120 

24 B3121 

26 03122 
2o .13120 

27 03124 

28 U3125 

aa 03126 

30 193127 

31 n313«i 

32 03131 

33 US 13? 

34 03130 
J5 03134 
36 

37 03135 
3b 03136 
3S) 0313/ 
4l» 4)314*1 

41 (13141 

42 03142 

43 B3143 

44 03144 
4b <)314S 
4b U3146 
47 03147 
46 u315u 
4S< D3191 

50 03152 

51 03153 

52 03154 

53 0315a 

54 03156 
5b 413157 
5b 03160 

57 413161 

58 H3162 
59 
80 03163 



THIS IS THE READ -RITE SUBROUTINE TO DO 4 READ THE SUBROUTINE 
READ IS ENTERED IT KILL INTERN ENTER THIS ROUTINE AT DUOLEY W 

IT WILL SET IT UP TO DO A READ 

"HEN CALLING A WHITE IT WILL ENTER THIS HOUTINE AT THE LABLE* 
ANtl SET UP TO PRtFORM A WRITE OPERATION 



«54070 
034121 
1454126 
024160 
8i20] 18 

123414 
8A41405 
820143 
4,06077 
v 40135 
8> 4 f 4 

020142 
006077 
040135 
K.22P71" 
010070 
*>4t£422 
024124 
106432 

ce»j4»5 

03«>lb0 
024135 

133000 

05H135 

8(22070 

.11.1070 
8)40444 
If 112i« 

0lal2S 
00H776 
030135 
1 13000 
8)50117 
fe: I* 1 b I ^ ^ 
000081? ' 

/ f «i 9 v i » 
81 10 1 
000075 
«5 P 6 1 11 

816244)41 
034155 
1634BH 
0381424 
£14423 
8S0077 

n24421 



oorite: st» 

LDA 
SI A 
LUA 
LuA 

AND* 

JMP 

LD« 

JSR 

STA 

jmp 

L0» 

J5R 

MA 

LU» 

ISZ 

STA 

LUA 

SUBZ* 

JMP 

LDA 

LU* 

ADD 

STA 

LDA 

ISZ 

STA 

MOVZL 

ISZ 

JMP 

LDA 
AuO 
STA 
JSR 
rHACKSI f? 
K 

JS« 
JSR 
JSR 
OIC 
LDA 
AND 
LDA 
DSZ 
NIO 

Lu» 



3,RT?N 

3,CN7 

3, RCOUNT 

l.eiTi 

0,FLAt.S 

1,0, SZR 

.♦5 

O.WITFUN 

• IDRI 

0.R1TFUN 

.♦4 

0,REDFUN 

PIDRI 

0,RITFUN 

P,»RT7N 

R1?N 

0,TWACKS 

1.C42 

C, 1,SZC 

.♦5 

8.8ITJ 

l.RITf UN 

1,2 

2,RITFUN 

«,»kt?n 

RT?N 

f, SECTOR 

0,0 

RCOUNT 

.-2 

2.RITI-UN 

SI, 2 

2,FUNwD 

•ISEAK 



♦ ISET 

PIRPRE 

•IDOO* 

0,FPY 

3,C1777 

3,13 

2, SECTOR 

SECTOR 

CPU 

1, SECTOR 



(STORE THE RETURN ADDRESS 

(GET A -7 

(SAVE IT IN ROTATE COUNT 

(GET DRIVE BIT 

(GE1 THE FLAGS l»OR THE WRITE 

(SWITCH 

(SEE IF READ OR WRITE 

(GO SETUP FOR RI-AD 

(GET WRITE FUNCTION 

(SET IT UP FDR CORRECT DRIVE 

(STORE IT AT RIGHT FUNCTION 

(SKIP OVER READ FUNCTION SET UP 

(GET READ FUNCTION 

(SET IT UP FOR CORRECT ORJVE 

(STORE AT RIGHT FUNCTION STORAGE 

(GET TRACK ADDRESS 

(UPDATE POINTER 

(STORE IT AT TRACKS WORD 

(GET REAOY TO SEE IF HE NEED WR1 

(IS IT 43 OR GREATER? 

(GO GET SECTOR ADDRESS 

(GET WRITE SWITCH BIT 

(GET THE RIGHT ('UNCTION 

(CREATE THE RIGHT FUNCTION WITH/ 

("RITE SWITCH 

(SAVE THE RIGHT FUNCTION 

(GET THE SECTOR AOORESS 

(UPDATE POINTER 

(SAVE IT AT SECTOR ADDRESS WORD 

(NOW RATATE SECTOR ADDRESS UNTIL 

(ARE IN THE CORflECT POSITION 

(WE ARE NOT DONE, CONTINUE R0TAT1 

(GET THE RIGHT FUNCTION 

(CREATE RIGHT FUNCTION WITH THE 

(SAVE IT AT FUNCTION WORD STORAG 

(NOW MAKE SURE WE ARE ON THE RIG 

(TRACK ADDRESS STORAGE 

(HAKE SURE HEADS ARE LOADED 

(TELL FLOPPY TO READ PREAMBLE 

(ISSUE FUNCTION 

(GET TRACK/SECTOR WORD FROM FLOP 

(GET SECTOR MASK 

(CLEAR THE TRACK BITS 

(GET SECTOR NUMBER 

(SUBTRACT 1FR0M ADDRESS 

(JUST INCASE SECTOR IS ONE 

(WE NEED THIS SO HE WON'T BOMB 

(GET CORRECTED SECTOR ADDRESS 



i" 


854 f-PYUI 








ill 


03164 


05*1429 




STA 


2, SECTON 


02 


0316b 


123120 




MOVZL 


1,1 


03 


«3I66 


12S12? 




HOVZL 


1, 1 


*« 


t'3l6? 


167400 




AND 


3,1 


nb 


03174, 


12244)4 




sua 


1,19, SZR 


0b 


03171 


000422 




JMP 


5ECW 


07 


03172 


030)77 


RtENTRI 


LDA 


2, [BUF 


an 


03173 


lUblll 




JSR 


PIOOOA 


4 


03174 


072000 




OQB 


2,FPY 


18 


03175 


t30117 




LUA 


2.FUNWD 


11 


03176 


««blll 




JSR 


PIDOOA 


12 


03177 


071 100 




DOAS 


2, FPY 


1.1 


03200 


uPib 105 




JSR 


•ITIME 


14 


03201 


000111 




JSR 


•IKOOA 


lb 


03202 


6 6 A 




DIAC 


0,FPY 


16 


03203 


002070 




JMP 


FRT7N 


17 


03204 


81 81 ^ 


SECTOR: 


a 




lb 


03205 


824166 


CUNKWI 


LDA 


1.BIT7 


IS 


0320b 


030117 




LDA 


2,FUNWD 


24, 


03207 


133000 




ADO 


1,!! 


21 


0321.0 


050 1 17 




S1A 


2,('UNWD 


22 


03211 


056070 


C0NRTW1 


STA 


3,|iRT»N 


23 


03212 


H00760 




JMP 


REENTR 


24 


03213 


010 126 


SECwl 


ISZ 


RCOUNT 


2b 


03214 


000737 




JMP 


TR*CKS«3 


26 


03215 


8106074 




JSR 


•IERME 


27 


03210 


004107 




CNFSC 




2b 

34' 


03217 


01*6104 




JSR 


HI RR 












31 


03220 


n02F7i» 




JMP 


FRTTN 



(REPLACE SECTOR VALUE 

(GET SECTOR IN RIGHT POSITION 

(ONE MORE TIME 

(GET RID OF ANV GARBAOGE 

(IF CORRECT SECTOR DO FUNCTION 

(KEEP SEARCHING FOR CORRECT SECT 

(GET BUFFER AOORESS 

(ISSUE FUNCTION 

(GIVE IT TO FLOPPY 

(GET THE FUNCTION WORD 

(ISSUE FUNCTION 

(TELL FLOPPY TO 00 FUNCTION 

(WAIT FOR DONE 

(ISSUE FUNCTION 

(GET STATUS BEFORE WE RETURN 

(RETURN TO THE CALLER 

(SECTOR ADDRESS STORAGE 

(GET BIT TO ONCREASE SECTOR ADDR 

(GET THE FUNCTION WORD 

(INCREASE SECTOR ADDRESS BY 1 

(REPLACE THE FUNCTION WORD 

(STORE RETURN AOORESS 

(GO REENTER THE SUBROUTINE 

(INCREMENT TIMER 

(KEEP LOOKING FOR SECTOR 

(REPORT CAN'T GET SECTOR COMPARE 

(REPORT SECTOR AOORESS DOES NOT 
(COMPARE WITH ANV SECTOR ADDRESS 
(READ OF THE FLOPPY, 
(RETURN TO CALLER 



10055 FPY 

n 

02 
93 

*A 

as 
*t 
07 
no 
09 

ie 

11 03221 

12 (13222 

13 03223 
Id 03224 
lb 03225 

16 03226 

17 03227 
IB 03230 
19 1)3231 
2k) 03232 

21 03233 

22 03234 

23 03235 

24 03236 

25 0323/ 

26 03240 

27 03241 

28 03242 

29 03243 

30 03244 

31 03249 

32 03246 

33 03247 

34 03290 

35 03251 

36 03252 

37 03253 
36 03254 

39 03255 

40 03256 



ul 



THIS IS THE RfcAD SUBROUTINE THE THREE ADDRESS *FTER THE JSR 
RUCTION MUST CONTAIN TRACK ADDRESS .SECTOR AODRESS AND CONSE 

RfcAD COUNT (-1 IF ONLY ONE READ TD 8E DONE 

AFTfcR THE INFORMATION IS SATHERED THIS ROUTINE KILL THEN TRA 
TO THE HEAD/WRITE SUBROUTINE AT LABLE DUDLEY NHERE THE FUNCT 
PREFORMED 



RfcEUi 



054071 
022071 
010971 
040415 
022771 
010071 
040413 
022871 
010071 
040424 
020116 
02416? 
107415 
12.5000 
040116 
004646 
000000 
000000 
01*413 
080402 
082071 
034117 
030163 
173439 
080405 
156428 
054117 
084731 
080766 
080888 CONSECI 



TRAKSI 
SECSI 



ST» 

LDA 

liZ 

STA 

LDA 

ISZ 

STA 

LDA 

ISZ 

STA 

LOA 

LDA 

AND* 

ADD 

SI A 

JSR 



ISZ 

JMP 

JMP 

LDA 

LDA 

ANDZR 

JMP 

suez 

STA 
JSP 
JMP 



3,RTN?N 

B,»RTNTN 

RTNtN 

8.TRAKS 

0,#NTNTN 

RTNTN 

8,secs 

8,»RTNTN 

RTN7N 

8.C0NSEC 

0.FLASS 

1.BIT1 

0,1, SNR 

1,0 

8, FLAGS 

DUR1TE 



CONSEC 

.♦2 

FRTNTN 

J.FUNMD 

2,BIT4 

3, 2, SNR 

• ♦5 

2,3 

3,FUN«D 

CONRM 

SECS*1 



(SAVE RETURN ADDRESS 

(BET TRACK ADDRESS 

(UPDATE POINTER 

(STORE AT THE TRAK STORAGE LOCAT 

(SET THE SECTOR ADDRESS 

(UPDATE POINTER 

(STORE IT AT SECTORE STORAGE 

(SET CONSECUTIVE READ COUNT 

(UPDATE POINTER 

(STORE IT AT THE CONSECUTIVE COU 

(SET THE FLAGS 

(SET READ/NRITE BIT 

(IS READ SET 

(SET READ BIT 

(RETURN NEM FLAGS 

(SO 00 THE READ 

(TRACK ADDRESS STORAGE 

(SECTORE ADDRESS STORAGE 

(INCREMENT THE CONSECUTIVE READ 

(CONTINUE READING 

(NO MORE TO READ (RETURN TO CALL 

(SET READY TO FIND OUT IF OUR NE 

(SET BIT 4 FOR TEST 

(SEE IF OVERFLOW 

(OK DO THE READ 

(CLEAR THE SECTOR AODRESS 

(REPLACE THE FUNCTION NORD 

(GO REEENTER READ ROUTINE 

(SEE IF ANY MORE TO READ 

(CONSECUTIVE READ COUNT STORAGE 



10866 Fpy 

01 

512 

«3 

04 

05 

06 

07 

8« 03257 

09 *3260 

10 

11 33261 

12 03262 

13 03263 

14 03264 

15 03265 

16 03266 

17 83267 
IB 03270 

19 03271 

20 03272 

21 (13273 
22 

23 03274 

24 03275 

25 03276 

26 03277 

27 03300 
2B 03301 

29 03382 

30 03303 
31 
32 
33 
34 
36 
36 

37 03304 
36 03305 

39 03306 

40 03307 

41 03310 

42 03311 

43 03312 

44 03313 

45 03314 

46 03315 

47 03316 

48 03317 

49 03320 

50 03321 
51 
52 
53 
54 
55 

5b 03322 

57 03323 

58 03324 

59 03325 

60 03326 





1 


1 IMC ROUTINE (WAIT 


'OR FLOPPY OONE) 


054223 


TIMEI 


STA 


3, RET 


(SAVE RETURN ADDRESS 


/5A204 




STA 


3,AC3? 


(SAVE CALLERS AODRESS INCASE 
(OF ERROR 


175400 




SUB 


3,3 


(CLEAR ACS 


054125 




STA 


3, TIMER 


(CLEAR TIMER 


034261 




LDA 


3.UNITA 


(GET UNIT « 


024404 




LOA 


1,FLAT 


(GET SKIP FUNCTION 


167000 




ADD 


3,1 


(ADD THE DEVICE CODE 


044403 




STA 


t.FLATl 


(STORE THE FUNCTION 


000402 




JMP 


FLAT1 


(GO 00 IT 


063600 


FLA1 1 


SKPDN 


FPY 


IIS FLOPPY OONE 


063600 


FLAT1I 


SKPON 


fpy 


IIS FLOPPY OONE 


000402 




JhP 


.♦2 


INO GO INCREMENT THE TIHER 


002223 




JMP 


FRET 


IYES RETURN TO THE CALLER 


010125 




ISZ 


TIMER 


(INCREMENT THE TIME 


000774 




JMP 


FLAT1 


(CONTINUE WAITING 


006074 




JSR 


FIERME 


(REPORT FLOPPY NON'T GO OONE 


004612 




FPYNO 




(FLOPPY DONE BIT NONIT SET 


O061O4 




JSR 


flEHR 


(REPORT ERROR 


010257 




ISZ 


EHTS1 


(DON'T LIT IT PRINT ANY MORE 


002223 




JMP 


FRET 


(RETURN TO CALLER 


002223 




JMP 


• RET 


(RETURN TO CALLER 




(•*•** 


»«•••«•♦••••«•»»••**«***»••••••»••••»•••••••••*»•••••*•••• 




( 


THIS ROUTINE MILL SET 


THE MRITE /READ FLAG FOR A MRITE 


054223 


MRSETl 


STA 


3, RET 


(SAVE RETURN ADORESS 


020116 




LDA 


0, FLAGS 


(GET THE FLAGS 


024168 




LDA 


1.BIT1 


(GET READ /MRITE BIT 


124000 




COM 


1.1 


(COMPLIMENT THE BIT 


107400 




AND 


e.i 


(MAKE BIT B CLEAR 


044116 




STA 


1, FLAGS 


(REPLACE THE FLAGS 


006111 




JSK 


•IOOOA 


(READ THE STATUS 


060400 




DIA 


8,FPY 




024165 




LDA 


1.B1T6 


(GET THE MRITE PROTECT BIT 


123415 




AND* 


1,0, SNR 


(ARE ME MRITE PROTECTED 


000403 




JMP 


MRSSl 


(NO 


006074 




JSR 


•IERME 


(PRINTT MESSAGE 


004111 




CmPR 




(DEVICE MRITE PROTECTED 


082223 


URSE1! 


JMP 


•RET 


(RETURN TO CALLER 




> 


THIS IS THE READ 


PREAMBLE SUBROUTINE 



054067 RPRfcl 

006101 

020144 

006077 

0196111 



STA 
JSP 
LDA 
J5H 
JSR 



3.RTNM 

FISfcT 

0.RUPA 

PIDRI 

FIDOOA 



(SAVE RETURN AODRESS 
(SETTLE THE ORIVE 
(GET READ PREAMBLE FUNCTION 
(SET IT UP FOR CORRECT ORIVE 
(ISSUE FUNCTION 



H037 FPYUI 






«l P3327 iii«l lac" 
t)2 B3J3,) it"61 yS 
"J U3331 »-t"2t'b7 

04 


ouas 
jsh 

JhP 


»iFpy 

PITIME 
#HTNH 



(TELL FLOPPY TO REAO PREAMBLE 
(WAIT FUR DONE 
(RETURN TO CALLER 



l»«!56 hHYL'l 
511 



THIS IS THE WRITE READ AND COMPARE PATTERNS SUBROUTINE 



175KM 

1 764^1* 
•"544J7 
«S4437 



,*cib246 
ul?«'424 

US4>*72 WC»A2: 
«.26e7? 



at 03032 J54t'72 "CPAT 

ff W3JJ3 (.542/4 

Ab B3334 <;34257 

i«S B3333 

l«i »333b 

11 

li W3337 

13 i!3J4fc 

14 »jj4i 

13 U3342 k - 5444.1 

16 I0J34J ,154443 

17 k'3344 
le ki3343 

II, H3340 
it *!334/ 

21 W3o5^ b44427 

22 133031 M4434 

23 03332 K1MBI72 

24 83353 b2bu72 
23 lu3354 k-444K4 
2b B3333 U44431 
27 B3356 4542,)"> 
86 0335/ tlluP/2 

?fc B336i. f'24233 WCI'AI: 

3f B33H <!3«133 

31 B3362 1-5H177 

32 B3363 l'5JCi2«- 

33 03.564 H3ul94 

34 to3363 <i4bH2<l 
33 fc(336b *'2*ttf2/, 

36 143367 112414 

37 u337tf «'?o77S 

3b «!3371 *637ltf »CI'AA: 

3b in 3 3 7 2 *• b 2 b 

4K l'3J73 t2tfld3 

41 03374 [4.1177 

42 P3j73 icf,6P7b 
4o 03370 ,>ol^? 

euj^if^.p TkaCC: 
fO^C^P seccc: 
web 1 ^f> 
^241 j2 
B44177 
f> 6 U- ! 



44 a3j7/ 
43 e? 3 a l? ,- . 

4b 034P1 
47 034?2 
4b 0341*3 
Ay V34P4 

5f w34P3 0PM00** 

51 034/0 fc PVPvV 

52 H3407 177777 

53 0341,5 -. ? 6 1 1' 6 

54 (u3411 «;fci4M7 
53 0341* zi54«72 
5u 03413 042J5 
57 03414 t?3774 
5b »3413 044771 
5* «i341o i23773 
81' 03417 t'4476b 



RTt'lt: 
sssx: 



STA 
STA 

LUA 
MOV 
JhP 

SUB 
STA 
STA 
STA 
ST» 
JSR 
JMP 
STA 
LUA 
STA 
STA 
ISZ 
LUA 
STA 
STA 
STA 
ISZ 
LOA 
LD» 
'STA 
SI A 
LUA 
STA 
LUA 
SUB* 
JMP 
SKPDZ 
JSR 
LUA 
STA 
JSR 
JSR 
pj 



J&R 

LDA 

STA 

JSS 

» 

a 

-l 

js* 

JnP 

STA 

STA 

LL'A 

STA 

LUA 

STA 



3/RTWCP 
3, ACS? 
3.ERTS1 
3,3 ( SZR 

HCI'AA 

3,3 
3,TRACC 

3, SECCC 

3,RTRK 

3.RSEC 

• ICIOPAT 

WCPAA 

3,RTNCP 

1,*RTWCP 

1,TRACC 

l.S'TRK 

RT»'CP 

1,»KTNCP 

1, SECCC 

l.RSEC 

3.CUENT 

RTHCP 

1,».PAT 

2.IWBUF 

2.IBUF 

2.BUFPT 

2,8UFtO 

l.fBUFPT 

0,RUFPT 

S»,2,SZR 

.-3 

TTI 

PIINP? 

G.IwBUP 

B.IBUF 

•IWRSfc 

FIRITE 



PIERCK 
1 iIWBUF 
lilbUP 

•IREAU 



»IERCK 

CPBUF 

3.R1HCP 

3.CJENT 

1,-4,3 

l.RSEC 

1,-3,3 

1 ,RTR« 



(STORE RETURN ADDRESS 

ISAVE ACS FOR ERROR PRINT OUT 

(SET ERROR SKITCH 

(ARE WE HERE ON AN ERROR LOOP 

IVES 80 DON'T CLEAR SECTOR AND 

(TRACK ADORESSES 

/CLEAR AC3 

UNITIALIZE TRACK AND SECTOR 

(POINTERS 



(LOAD THE NORMAL PATTERN 

(NORMAL ENTRY CONTINUE 

(COMMAND STRING ENTTRV 

(SET POINTER TO INFO 

(STORE TRACK AT TRACK 

(AND STORE IT AT READ TRACK 

(INCREMENT RETURN POINTER 

(GET SECTOR ADDRESS 

ISAVE AT WRITE SECTOR 

(SAVE AT READ SECTOR 

(SET THE COMMAND STRING FLAG 

(INCREMENT RETURN POINTER 

(GET THE WRITE PATTERN 

(GET BUFFER POINTER 

(SAVE AT BUFFER POINTER (INOEREC 

(STORE AT AUTB INCREMENT LOC 

(LOAO AC2 «ITN BUFFER END ADORES 

(LOAD BUFFER KITH PATTERN 

(SEE IF BUFFER FULL 

(IS BUFFER FUtL 

(NO KEEP LOADING 

("AS A KEY HIT 

(YES 

(GET WRITE BUFFER ADDRESS 

(STORE IT AT BUFFER POINTER 

(SET THE MRITli. SKITCH 

(GO DO THE WRITE 



(SEE IF ANY ERRORS 
(GET READ BUFFER ADDRESS 
ISTORE IT AT BUFFER POINTER 
(GO REAO THE INFO 



(ONE REAO ONLV 
(SEE IF ANY ERRORS 
(COMPARE THE REAO 
(SAVE RETURN POINTER 
(SET THE ENTRY FLAG 
(GET THE SECTOR ADDRESS 
ISAVE SECTOK ADDRESS 
(GET THE TRACK ADORESS 
ISAVE THE TRACK ADDRESS 



«,B59 FPYUI 






HI aJ42,« 06371t> CPBLFl 


SKPDZ 


TTI 


02 b3481 0£62is6 


JSP. 


»IINP? 


03 03422 ^24132 


L0» 


l.IRBUF 


04 03421 •/• 4 4 » 2 " 


STA 


l.BuFPT 


fb ItiAt* <!?4)33 


LuA 


1 , J.W9UF 


B6 b3425 £44321 


STA 


l.CbUFP 


07 03fl2o 0241134 


LOA 


0,BUFtO 


06 43427 02B020 HERE.: 


LOA 


1,»BU*PT 


09 H343<} k>32021 


L0» 


2,»CBUFP 


1H 03431 146414 


SUB* 


2, I, SZR 


11 £3432 U00435 


JMP 


CPERR 


12 03433 024021 


LDA 


l.CBUFP 


13 03434 122414 


SUB* 


1 ,B,SZR 


14 03435 400772 


JMP 


HERE 


lb 03436 b26073 UPOAT: 


LOA 


1,»IITR 


lb 03437 125004 


MOV 


lil, SIR 


17 0344»> 002072 


JHP 


•RTWCP 


16 03441 024?35 


LUA 


l.CQENT 


19 03442 125004 


MOV 


1 ,1,SZR 


20 03443 00042J 


JHP 


WCPA3 


21 03444 010734 


ISZ 


SECCC 


22 03445 010741 


ISZ 


RSEC 


23 03440 024732 


LOA 


1, SECCC 


24 03447 030120 


LUA 


2.SECTST 


25 W3450 147414 


AND* 


2,liSZR 


20 03451 0C0720 


JHP 


WCPAA 


27 03452 126420 


SUB 


lil 


26 03453 044725 


STA 


1, SECCC 


29 03454 044732 


STA 


l.RSEC 


it 03455 010722 


ISZ 


TRACC 


31 03456 024721 


LDA 


1,TKACC 


32 03457 044726 


STA 


1,RTRK 


33 03460 0312147 


LuA 


2,C77 


34 03461 132414 


SUB* 


1,2, SZR 


35 03462 000707 


JMP 


WCPAA 


36 03463 126400 


SUB 


111 


37 03464 044713 


STA 


I, TRACC 


3b 03465 044720 


STA 


l.RTRK 


39 03466 1-02072 WCPA3I 


JMP 


•RTwCP 


40 

41 03467 006P74 CPEKRI 


JSP 


•IERME 


42 03470 103716 


RDCER 




43 03471 024237 


LUA 


1.EKTS1 


44 03472 125004 


MOV 


1,1, SZR 


46 B3473 ("00415 


JMP 


NCPA4 


46 03474 *14P20 


Q5Z 


BUFPT 


47 0347b 020020 


LUA 


B.BUFPT 


4b 03476 024707 


LUA 


1,RTRK 


49 03477 030707 


LDA 


2, RSEC 


30 0350b 086104 
51 


JSR 


• IERR 


52 

53 0351*1 026021" 


LUA 


1,»SUFPT 


54 035*2 114021 


osz 


CBUPP 


55 tfSbfJ 020021 


LDA 


B.C8UPP 


56 03504 15240? 


SUB 


2,2 


57 03585 *52?73 


STA 


2,»IITR 


56 03506 032021 


LDA 


iifCBUFP 


99 035P7 006104 


JSR 


• IERR 



(DOES TTY NEEO SERVICE 

(YES 

(GET READ BUFFER ADDRESS 

(STORE IT AT BUFFER POINTER 

(GET WRITE BUFFER ADORESS 

(STORE AT COMPARE BUFFER POINTER 

(SET BUFFER END 

(GET UATA 

(SET COMPARE DATA 

(EQUAL DATA? 

(UATA DOES NOT COMPARE 

(SEE IF END OF BUFFER 

(ARE WE THROUGH COMPARINGT 

(NO, KEEP COMPARING 

(SEE IF ANY ERRORS 

(ANY tRKORS 

(RETURN TO LOOP 

(WAS IT A COMMANO ENTRY 

(FIND OUT 

(YES SO RETUR TO SENDER CALLER 

(UPDATE SECTOR CNRITE) 

(UPDATE READ SECTOR 

(GET NEW SECTOR NUMBER 

(GET SECTOR TEST 

(HAVE WE DONE ALL SECTORS 

(NO KEEP GOING 

(CLEAR ACB 

(CLEAR KITE SECTOR 

(CLEAR READ SECTOR 

(INCREMENT TRACK 

(GET NEW TRACK ADORESS 

(GIVE IT TO READ ROUTINE 

(GET LAST TRACK VALUE 

(ARE WE THROUGH KITH THE TRACKS 

(NO, CONTINUE 

(CLEAR AC1 

(CLEAR WRITE TRACK 

(CLEAK REAO TRACK 

(RETURN TO CALLER 

(PRINT READ COMPARE ERROR 

(WAS THER AN ERROR BEFORE 

(IF a Nit 

(GO RETURN TO CALLER 

(CORRECT POINTER TO CORRECT ADDR 

(GET BUFERR ERROR ADORESSS 

(GET TRACK ADDRESS 

(GET SECTOR ADDRESS 

(REPROT ERROR ACMFAILING ADDRFS 

(ACl'TRACK ADORESS 

|AC2«3ECT0R ADDRESS 

IAC1«G00D DATA 

(CORRECT THE BAD DATA POINTER 

(ACB'BAD DATA ADDRESS 

(CLEAR AC2 

I CLEAR THE ERROR COUNTER 

(AC2«BA0 DATA 
(REPORT THE ERROR 



01 143514: 

02 

03 

04 

05 

06 

07 

0b 03511 

09 03512 

10 03513 

11 03514 

12 03515 

13 K3616 

14 03517 

15 03520 

16 03521 

17 03522 
lb 33523 

19 03524 

20 03525 

21 03526 

22 03527 

23 03530 

24 03531 

25 03532 

26 03533 

27 03534 
2b 03535 
29 03536 
SB 

31 
32 
33 
34 

35 03537 

36 03544 

37 03541 
3b 03542 

39 03543 

40 03544 
41 

42 
43 
44 
45 

46 03545 

47 03546 

48 03547 

49 0355b 

50 03551 

51 035S2 

52 03553 

53 03554 



ul 

002l»72 "CPA4I 



•RTWCP 



(END THE TEST AND LOOP IF NECESS 



TTY SERVICE ROUTINE 



»54223 SERVSl 

P0S220 

024122 

166435 

0H042B 

024123 

166435 

000413 

024233 

160415 

002252 

02423t 

166415 

002232 

024303 

166415 

0P6277 

0P2223 

006221 Oil 

0S>2223 

0*6222 Sll 

002223 



STA 
JSR 
LOA 
SUBZ* 

JMP 

LUA 

SUBZ* 

JMP 

LDA 

SUB* 

JMP 

LUA 

SUB* 

JMP 

LDA 

SUB* 

JSR 

JMP 

JSR 

JhP 

JSR 

JMP 



J, RET (SAVE RETURN ADDRESS 

• IINP (GO TO SEYICE THE TTY 

1.C23 (GET CONTROL S CONSTANT 

S,1,SNR (IS IT CONTROL St 

SI (YES BO SERVICE 

1,C17 (GET CONTROL 

J,J,SNR (IS IT CONTROL OT 

01 (YES GO SERVICE IT 

1,CC (GET A «C" 

3,1,SNR (SEE IF ITS A I 

»ICOMS (GO TO COMMANO STRING INTERPRETS 

1,CF (GET CONTROL F 

3,1,SNR (IS IT CONTROL F 

•IFUNL (GO TO FUNCTION INTERPRETER 

1,CJ (GET A J 

3,1,SNR (LOOP ON A PARTICULAR TEST 

•ITELP >»ES 

■RET (RETURN TO CALLER 

■ HOOT (GO TO ODT ROUTINE 

•RET (RETURN TO CALLER 

»ISUM (GO SUMMERIZE OR eRROR If NOT PR 

•RET (RETURN TO CALLER 



CORRECT DRIVE SETUP ROUTINE 



054223 DRII 

030116 

024157 

133414 

12300P 

092223 



STA S.RET (SAVE RETURN ADDRESS 

LDA 2, FLAGS (GET THE FLAGS TO FIND OUT NHAT 

LUA l,BIT» (GET DRIVE BIT POINTER 

AND* 1.2, SZR (IS IT DRIVE It 

»00 1,8 CAKE FUNCTION FOR DRIVE ONE 

JMP »RET (RETURN TO CALLER 



DOAS HANDLER 



054066 DODAI 
024261 
036065 
137000 

054402 
010066 

000000 FUNSI 
b02(?66 



STA S.BACK .(SAVE RETURN AODRESS 

LDA l.UNITA (GET UNIT • 

LOA S.PBACK (GET FUNCTION 

»0D 1.3 (CORRECT IT FOR DEVICE 

STA 3, FUNS (SAVE IT 

is? BACK (CORRECT RETURN POINTER 

(FUNCTION TO BE EXECUTED 

JMP »BACK (RETURN TO CALLER 



10061 FP' 

ai 

ii 

00 

ft 

Ob 
90 

37 03555 

(16 113356 

1f> H3567 

Ik' 03560 

11 03561 

15 03562 
13 03563 
11 03564 

16 03565 
lb 0356b 

17 a?667 

te o357«, 

11* 03571 
2e 03572 

21 03573 

22 UJ57J 

23 03575 

24 03576 

26 03577 
2b 03bl"0 

27 036?1 
SB 036(12 
26 036P3 
3b 03604 

31 initio 

32 o36»e 

33 036P7 

34 03bl0 
3» k>3611 
3b 03012 
37 03613 
3b 03614 
39 0361b 
4C B3616 

41 03617 

42 03620 

43 03621 

44 23622 

46 03623 
4b 03624 

47 03025 
46 u3b?6 

48 d3b27 
5(- »3o30 
51 »3o31 
62 03632 
S3 U3b33 
64 03634 
9b 0363b 
5o 0363b 
57 03637 
66 (13640 
5S 03641 
6k, 03642 



THIS ROUTINE CHECKS ALL ERROR BITS IN THE STATUS REGISTER 



o54»b7 
036073 
175M4 
000470 
101212 
0P0 40 4 
11"1112 
O0O465 

O 4 a 5 
MP607 4 
d046o5 
.10264 
«6o077 
r24!75 
l«74ib 

000405 

006074 
004741 
olo 2b6 
o6et»77 
024174 

i»74ib 
oO ?4o5 
(1(16074 
*i047o2 

01 0267 
060077 
024173 
107415 
O034rfb 
,idbn74 
004753 
01027!" 
ORO077 
024172 
107415 
000405 
61 ("6074 
005020 
<UU< 
0601*77 
(24171 
107415 
000405 
* 06074 

«u*3f 04 
« 1 i265 
k.60077 
024165 
10/415 
O0O4O6 
026073 
125005 

O0O4o3 



EKRC2I 



STA 

LUA 

MQV 

JMP 

MUVRW 

JnP 

MUVL» 

jmp 

Jpip 

JSR 

SETER 

1ST. 

NIC) 
LDA 
AND* 
JMP 

JsR 

SETHF 

ISZ 

NIO 

LD» 

AND* 

Jmp 

JSR 

StTDC 

ISZ 

NIO 

LDA 

AND* 

JMP 

JSR 

StTC" 

ISZ 

NIO 

LDA 

AND* 

JhP 

JSR 

StTSE 

IS* 

«I0 

LDA 

ANO* 

JMP 

JSR 

SETIL 

ISZ 

NID 

LliA 

AND» 

JMP 

LUA 
MUV 
JMP 



3,RTNH 
3,»IITR 
3,3, SZR 
ERRCS 

a,0,SZC 

EKRNC 

f",a, sic 

FPYNRD 

ERRC1 

♦IEHME 

EHBTC 

CPU 

1.BIT14 

0, 1,SNR 

ENRC2 

♦IERME 

WRFLC 

CPU 

1.BIT13 

8, 1,SNR 

ERRCS 

♦IEHME 

DCLAT 

CPU 

1,9IT12 

0,1, SnR 

ERRC4 

•IERME 

CKWOC 

CPU 

l.BJTH 

8t, 1,SnH 

EHRC9 

♦IERME 

StCtC 
CPU 

I.BITIB 
B, 1,SNR 

ERRCS 
•IERME 

ILLPC 
CPU 
l.BITb 
0,1, SNR 
ERRC7 
1,#IITR 
1,1, SNR 
ERRC7 



fSAVE RETURN ADDRESS 
(MAS THERE ANY ERRORS 
(NO 

(DON'T CHECK STATUS 
IIS ERROR SET 
(ERROR IS SET 
(IS FLOPPT READY? 
(FLOPPY IS NOT WEAOY 
(GO CHECK WRITE FAULT 
(REPORT ERROR BIT SET 

(INCREMENT ERROR BIT COUNT 

(NO OPERATION 

(GET READY TO CHECK WRITE FAULT 

(IS WRITE FAULT SET? 

(NO ,G0 CHECK DATA CHANNEL LATE 

(REPORT UNITE FAULT SET 

(INCREMENT WRITE FAULT COUNT 

(NO OPERATION 

(GET REAOY TO TI-ST OATA CHANNEL 

(IS OATA CHANNEL SET? 

(NO ,G0 CHECK CHECK NORD ERROR 

(REPORT OATA CHANNEL LATE 

(INCREMENT DATA CHANNEL LATE COU 

(NO OPERATION 

(GET READY TO TEST CHECK NORD ER 

(CHECK WORD ERROR SET? 

(NO ,G0 TEST SECTOR ERROR 

(GO REPORT CHECK NORO ERROR 

(INC CHECK WORD COUNT 

(NO OPERATION 

(GET REAOY TO TEST SECTOR ERROR 

(IS SECTOR ERROR SET? 

(GO CHECK ILLEAKLE FUNCTION 

(GO REPORT SECTOR ERROR SET 

(INCREMENT SECTOR ERROR COUNT 

(NO OPERATION 

(GET HEADY TO TfiST ILLEAGLE FUNC 

(IS ILL FUNC SET 

(NO SEE IF DEVICE IS WRITE PROTE 

(REPORT ILLEAGLfi FUNCTION SET 

(INCREMENT ILL FUNC COUNT 

(NO OPERATION 

(GET REAOY TO SEE IF WRITE PROTt 

(IS DEVICE WRITE PROTECTED? 

(NO GO RETURN TO CALLER 

(GET ERROR COUNT 

(HAVE HE HAD ANV ERRORS? 

(NO DONT TELL HIM HE IS WRITE PR 



03 
0« 
05 
06 
817 
Ob 
Ok 
10 
11 
12 
13 

14 

16 
16 
17 
16 
IS 
2k 
21 
22 
23 
24 
26 
2b 
27 
26 
2U 
3k 
31 
32 
3o 
34 



162 FHYDI 

03643 O0611O 

03b44 105(132 

03645 .24257 EkRC7l 

»364b 1250M 

»3647 O061O4 

03650 002067 EkRCBI 

k)3b51 XP6074 FFYNR01 

k)3662 kd4267 

■93653 (11*6104 

(13664 clans 

kj365b (,6e<»77 

(13656 B(*u714 



03657 054P07 StOEK! 
03660 (^6 lie 
03t61 0C4R43 
«3662 0W2(i67 



03663 (54766 ERMESl 

03664 ?54204 

03665 ^24257 

03666 125K04 

03667 <:pa4o5 
(13670 026C66 
03671 044402 
0367,! 01*61 10 

03673 OPOPOO MESSRI 

03674 0I0O66 NOPRT: 
kj3o75 «(»2oo6 



JSR 


» IHESS 


HKPRO 




LDA 


1,ERTS1 


MUV 


1,1. SZR 


JSR 


• IEKR 


JhP 


»RTNH 


JSR 


♦IERM6 


FPYRD 




JSR 


flERR 


ISZ 


FPYRC 


NIO 


CPU 


JMP 


EHRC1 


STA 


3,»TNH 


JSR 


•IHESS 


SEAER 




JMP 


• RTNH 



(YES TELL HIM HE IS WRITE PROTEC 

(GET ERROR COUNTER 
(ANY ERRORS 
(PRINT ERROR MESSAGE 
(RETURN TO THE CALLER 
(REPORT FLOPPY NOT READY 

(FLOPPY IS NOT READY 

(INC FLOPPY HOT READY COUNT 

INO OPERATION 

(CONTINUE CHECKING ERRORS 



(SAVE RETURN ADDRESS 

(PROGRAMS ARC RUNNING OUT OF SEB 



(RETURN TO CALLER 



ERROR MESSAGE ROUTINE SO THEY DONIT KEEP PRINTIN 



STA 


3, HACK 


STA 


3, ACS? 


LUA 


1.ERTS1 


MOV 


1,1, SZR 


JMP 


NOPRT 


LUA 


1, 'BACK 


STA 


1,MESSR 


JSR 



ISZ 


FIHESS 


BACK 


JMP 


• BACK 



ISAVE RETURN POINTER 

(SAVE AC3 

(GET ERHOR COUNTER 

(ANY ERRORS? 

(YES SO ODNIT PRINT 

(GET MESSAGE ADDRESS 

ISTORE IT FO PRINT OUT 

(PRINT THE MESSAGE 

(MESSAGE ADDRESS STORAGE 

(UPDATE RETURN POINTER 

(RETURN TO CALLER 



ASCII MESSAGES TO BE PRINTED IN CASE OF ERRORS 



10063 ffllil 

01 

32 )•••• 

03 I 

04 (••••••••••••••••****«*« **************************************** 

05 

lit *367S 005215 HDHMCI .TXTE /«19>«12>MEA0 HOME NOT BEING OETECTED/ 

07 142910 

Pitt v>4Sliol 

ou 1.44240 

1* 046717 

11 180305 

ie lassie 

13 120324 

14 1425o8 
lb 047311 

16 120107 

17 142504 

18 142724 
Ik 152303 

20 O42305 

21 000000 

22 03716 005215 RDCERl .TXTE /«15»<12>READ COMPARE ERROR/ 

23 142722 

24 0421ol 
2b 141640 

26 046717 

27 B4H52P 
26 142722 

29 142641! 

30 151322 

31 151317 

32 00000P 

33 U3731 K05215 TYFHI .TXTE /«15»«12»TYPE DESIRED FUNCTION (FUNCCS OR C OR) CCR 

34 <)54724 

35 142520 

36 042240 

37 051705 

38 151311 

39 042305 

40 143240 

41 047125 
4k 152303 

43 1477H 

44 120116 

45 143050 

46 047125 

47 024303 
46 120123 
4V 151317 

90 141640 

91 147640 
52 124722 
33 141450 

54 124722 

55 005215 

56 1000000 

57 03761 005215 NUMUI .TXTE 7«15»<12»TYPE DEVICE « CCR) / 
56 094724 

511 142520 

60 042240 



B064 FHYUI 

01 l»53305 

02 1417H 

03 120305 

04 120243 

05 141450 

06 124722 

07 120240 
(36 000240 

»9 03775 005215 ENCMSI .TXTE /«! S»«12»ENTER COMMAND STRINS«1S»«12»C0MMAN0,UNIT» 

It 047305 

11 142724 

12 120322 

13 147703 

14 046915 
lb 047101 

16 120104 

17 152123 
IB 144722 

18 043516 

20 005215 

21 147703 

22 046515 

23 047101 

24 126104 

25 047125 

26 152311 

27 126243 
26 040920 

29 192324 

30 131309 

31 126116 

32 151324 

33 141901 

34 121913 

35 051654 

36 141705 

37 147724 
36 121722 

39 141450 

40 124722 

41 005215 

42 000000 

43 04037 005215 HDL20I .TXTE /«15»«12»HEAD LOAD NOT SET IN 21 KTTt-E TINE*/ 

44 142510 

45 042101 

46 146240 

47 040717 
46 170104 

49 147516 

50 120324 

51 142523 

52 120324 

53 047311 

54 131240 
59 120760 
36 142523 

57 192324 

58 142714 

59 152240 

60 046711 



1,065 FPVLI 

01 051705 

02 bPfltieip 

'IS 04063 k.05215 HLSDCI .TXTE /M3»«12>MEA0 LOAD SET TO EARLY AFTER DRIVE CHANGE 

04 1425l« 

05 U42lm 
•lb 146240 
«7 040717 
as 12iSl u4 
09 142523 
It) 12)4324 

11 147724 

12 1426401 

13 151101 
1« 05*714 

15 040640 

16 152306 

17 151305 
16 042240 
IV 144722 
2d 142526 

21 141548 

22 M0S10 

23 043515 

24 B0B3K5 

25 04111 005215 CwPKI .TXTE /<15><12»CAN ' T WRITE, DEVICE WRITE PROTECTED/ 
2b 040703 

27 023516 

20 120324 

29 1513*7 

30 152311 

31 126305 

32 04*240 

33 «S533B5 

34 141711 

35 120305 

36 151327 

37 152311 
3D 120305 
39 13112? 
4«l 152317 

41 141705 

42 142724 

43 VJ00U14 

44 04134 ,>Pa2l5 HDWLD: .TXTE /«15>«12>HEA0 WON'T LOAD/ 

45 142510 
4b 042101 
47 153640 
4b 047317 
4v 1528147 
5m 14524? 

51 040717 

52 a»*H4 

53 04U5 0*5215 HDLUFI .TXTE /«15>«12>HEA0 LOAD 8IT ALWAYS READS AS SET/ 

54 14251i< 

55 U42141 

56 146240 

57 04»717 
56 120104 
59 144502 
Ski 12*324 



0066 FPYUI 

31 1461ml 

02 «40727 

03 051531 

04 151240 

*3 040705 

0f 051504 

07 £40640 

08 120123 

09 142523 
in 020324 

11 .14167 005215 CNFSC! .TXTE /«1S»«12>CAN NOT SET A COMPARE ON SECTOR ADDRESS/ 

12 040703 

13 120116 

14 147516 
16 120324 

16 142507 

17 120324 
lb 120101 

19 147703 

20 050115 
?1 151101 

22 120305 

23 047317 

24 051640 

25 141705 

26 147724 
2/ 120322 
2b 042101 

29 151104 

30 051705 

31 000123 

32 04214 0P5215 LSDKI .TXTE /«15»«12>L0A0 SCRATCH DISKETTE TYPE (CR)/ 

33 147714 

34 042101 
3b 051640 
36 151303 
17 152101 
3b 044303 

39 042240 

40 0517H 

41 142513 

42 152324 

43 120305 

44 054724 

45 142520 

46 024240 

47 151303 
4b 000251 

49 04235 005215 SECwSl .TXTE /«15»<12>SECT0R ERROR WONIT SET/ 

50 142523 

51 152303 

52 151317 

53 142640 
»4 151322 
55 151317 
5c 153640 
57 047317 
5b 152047 
5y ii5164B 
60 15*305 



k<0O7 FPYOI 


01 


000000 


02 U42S2 


4X5215 PLNSI 


03 


151120 


04 


043717 


05 


040722 


36 


12K115 


07 


147714 


ae 


042101 


08 


050240 


1? 


147722 


11 


120113 


12 


151305 


13 


147722 


14 


000322 


15 04267 


003215 FPYKOI 


16 


146306 


17 


050317 


ID 


054520 


19 


144548 


St) 


120123 


21 


147516 


22 


120324 


25 


142722 


24 


042101 


25 


120131 


26 


000000 


27 H4Jf0 


005213 DOBNG! 


28 


147504 


28 


120102 


3 k) 


051711 


31 


032323 


32 


042305 


33 


041240 


34 


132125 


35 


04724?! 


36 


132317 


37 


151240 


3B 


040703 


3W 


144S04 


40 


043516 


41 


141640 


42 


151317 


43 


142722 


44 


132303 


45 


144640 


46 


143116 


47 


120317 


46 


144727 


48 


044324 


50 


042240 


51 


041311 


32 


000000 


33 04335 


005215 BADUR1 


54 


052302 


55 


143306 


56 


151305 


37 


040640 


38 


042104 


39 


142722 


60 


031323 



.TXTE /«13»«12»PR0GRAM LOAD PROM ERROR/ 



.TXTE /»15»«12»FL0PPY IS NOT READY / 



.TXTE /«15>«12»D0a ISSUED BUT NOT READING CORRECT INFO * 



.TXTE /«13>«12»BUFFER ADDRESS NOT INCREMENTING PROPERLY 



0066 FHYUI 


01 


«47240 


02 


132317 


03 


144640 


04 


141516 


05 


142722 


06 


142515 


07 


152116 


06 


047311 


08 


120107 


10 


151120 


11 


050317 


12 


151305 


13 


054714 


14 


024240 


15 


142722 


16 


042101 


17 


000251 


lb 043(6 


005213 


18 


146306 


20 


050317 


21 


054520 


22 


047240 


23 


152317 


24 


153640 


25 


151317 


26 


144513 


27 


043516 


26 


144654 


28 


120306 


30 


042104 


31 


051717 


32 


042240 


33 


0517H 


34 


120113 


35 


047311 


36 


042240 


37 


144722 


36 


142526 


in 


030240 


40 


151240 


41 


050303 


42 


040714 


43 


142703 


44 04420 


U15215 


45 


144727 


46 


044324 


47 


051640 


46 


151303 


48 


152101 


50 


044303 


51 


042240 


52 


051711 


53 


120113 


54 


047101 


55 


120104 


56 


U54724 


37 


142520 


5b 


024240 


58 


151303 


6H 


120251 



.TXTE /«13»<W»FL0PPY NOT »ORKING,IF D003 DISH IN DRIVE 



44 04420 015213 «1S»«12»NITH SCRATCH OISK AND TYPE CCR) HNEN READY TO CONTINUE/ 



0069 H>101 

■H 04«327 

12 H4/303 

US 15124M 

34 0407tj5 

0b 154504 

16 152241" 

«7 12*i3|7 

06 147703 

"W 152116 

10 <!47911 

11 142325 

12 iUcP'BK 

10 04435 0*3213 OKMfcSI .TXTE /<13»«12»TESTING DISK « / 

14 142724 

19 152123 

16 1)47311 

17 12H107 

18 144SH4 

15 045523 

20 121640 

21 00i»24a 

22 04466 120240 DRMESl .TXTE / DRIVE * / 
2S 131104 

24 053311 

25 1203US 

26 12«243 

27 0Aufl00 

26 S.4474 k-03215 006181 .TXTE /«15»«12»00B IS NOT LOAOING CORRECT AOORESS OR DIB 

26 1473(34 

3k. 12011)2 

31 051711 

32 «47240 

33 1S2317 

34 146P40 
33 040717 
3d 144304 

37 k.43516 

38 141640 
3i 151J17 

40 142722 

41 132303 

42 040640 

43 042104 

44 142722 
4b £51523 

46 14764e 

47 120322 

48 1445*4 

49 120102 

50 147316 
31 120324 

52 142722 
33 042101 
54 «471ll 

53 124107 

56 152311 

57 041240 
56 141501 
3& 000113 

60 04534 003215 8*DDI: .TXTE /<15>«12>BUFF£R ADDRESS NOT INCREMENTING PROPERLY 



B»7l" F'PYUI 

rtl 032502 

M 143306 

00 1513».S 

04 U4lrl64P 

P» 042104 

46 142722 

07 J51523 

06 04724PI 

*» 152317 

10 14464? 

11 141516 

12 142722 

13 142513 

14 152116 

15 047311 

16 120107 

17 151120 
16 «503l7 
1> 151305 
2ki 054714 

21 024240 

22 151327 

23 152311 

24 124709 
23 ».0000n 

26 04366 t)US21S DUSERI .TXTE /«1S*«12» DEVICE IS NOT RESPONDING TO DEVICE «/ 

2/ 042240 

26 053305 

28 141711 

30 120305 

31 0517H 

32 047240 

33 152317 

34 151240 
33 031705 

36 14752B 

37 042116 
36 K.47311 
3d 120107 
4u 147724 

41 042240 

42 .153305 

43 141711 
4« !S>0jn5 
43 0!'..243 

46 „4el2 .03215 FP"NO! .TXTE /<15»«12>FLQPPY DgNE NOT SETTING/ 

47 1413n6 
4b i!5o3l7 
*H 054520 
St! 042240 

51 047317 

52 120305 

53 147516 

54 120324 
5b 142523 
36 152324 

57 047311 

58 01*0107 

5S. *4627 (,05215 HOHHSs .TXTE / <lb»< 12>HEA0 HOME ALWAYS SET/ 

6t; 1425U 



FHY 



C071 
«1 
32 

JJ 
34 
05 
Ob 
07 
08 

09 
H 

u 04643 

12 

13 

14 

lb 

lb 

1/ 

It) 

in 

20 

21 

22 

23 

24 

25 

26 

27 

28 

28 «4bf>5 

30 

31 

32 

33 

34 

35 

36 

3; 

38 

39 

40 

41 

42 04/02 

43 

44 

4b 

46 

47 

4 
49 

5 is 
51 
52 
53 
54 
55 

5b 04720 

57 

5B 

59 

ee 



Ut 

042101 
044240 
046717 

i2es B s 

146101 

040727 

051531 

051640 

1523*5 

00000;* 

005215 

142724 

152123 

120123 

151101 

l?o305 

052722 

047116 

•J473U 

1201B7 

052717 

120324 

143317 

0516419 

150765 

144525 

141516 

O00305 

005215 

151305 

147722 

1210322 

•39171 1 

0*1640 

152303 

144648 

120116 

152123 

15211*1 

■151525 

(084)240 

005215 

040504 

040724 

141640 

040510 

247116 

146305 

14624? 

152101 

120305 

151305 

147722 

120322 

000000 

185215 

042240 

•141311 

143240 

047125 



SEAERI .TXTE /<15»«12»TE5TS ARE HUNNING OUT OF SEQUINCE/ 



SETERI .TXTE /»15»<12»ERR0R IS SET IN STATUS / 



SETDCI .TXTE /«15><12»0ATA CHANNEL LATE ERROR I 



4741 



DIBNGI .TXTE /«15»«12» DIB FUNCTION IS NOT WORKING «15><12»/ 



(072 FPY 
HI 
6)2 
00 
04 
HO 
06 
07 
at 
09 
IK 
11 

12 
13 
14 

15 

lb 

17 

lb 

19 

20 

21 

22 

23 04753 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 (14765 

34 

35 

36 

37 

3b 

39 

419 

41 

42 

43 

44 

45 

4b 

47 

46 «5a04 

49 

5k, 

31 

52 

S3 

54 

5b 

5b 

57 

58 

59 

bvi 05020 



01 

1623u3 

147711 

120116 

0517U 

£4724(1 

152317 

153648 

151317 

144513 

043516 

106640 

000012 

0C5215 SET«FI .TXTE /«15»«12»WRITE FAULT SET I 

151327 

152311 

120305 

040706 

146125 

120324 

142523 

120324 

000000 

005215 SETCNI .TXTE 7«15K12»CHECK WOHD ERROR / 

044303 

141705 

120113 

147727 

042322 

142648 

151322 

151317 

000240 

005215 RDPAFl .TXTE /<19»«12»PREANflLE READ ERROR THK » t 

151120 

040705 

041115 

142714 

151240 

O407«5 

120104 

151305 

147722 

190322 

152240 

045722 

121640 

005215 SETILS .TXTE /«15»«12»ILL£GLE FUNCTION SET / 

146311 

142714 

146107 

120305 

052706 

141516 

144724 

047317 

051640 

15*3(55 

000240 

KBb2l5 



SETSEI .TXTE /<15»«12»3ECTDR EHHOR SET / 



0M73 FPYDI 

"l 142523 

12 152303 

*i 161317 

»4 14264P 

05 161322 

30 161317 

97 051640 

ab 152305 

9b '41A024V' 

10 U5H32 *>B5215 HKPROI .TXTE /<l 5>«12>0EVICE IS WRITt PROTECTED / 

11 142544 

12 144626 

13 142703 

14 144648 

16 120123 
lb 151327 

17 152311 
16 1223,15 
16 15112(1 
2* 152317 

21 1417*5 

22 142724 

23 1201P4 
2« oaoicoa 

25 W5H51 «83215 ENOFP: .TXTE /< 1 5»<12>«»END UP PASS / 

26 125252 

27 0473o5 
2b 120104 

28 143317 

30 0502481 

31 .151581 

32 120123 

33 12024? 

34 0«Oflfe[* 

J5 D5o63 (SISS215 HEDOFl .TXTE /<15>«12»HEAD IS NOT MOVING OR DI!SK UNFORMATEO/ 

3b 142510 

37 042101 

3b 144640 

3* 120123 

4b; 147516 

41 120324 

42 147515 

43 144526 

44 043516 

45 14764k! 

46 124322 

47 144524 
46 045523 

48 052640 
Sr 143116 

51 151317 

52 040515 

53 142724 

54 o«0104 

53 d51(»7 0f>52l5 HNUOS! .TXTE /«15>«12»HEA0 LCIAU BIT NOT SETTING, AFTER 6 STARTS/ 

56 142510 

57 BJ421B1 
5b 1462414 

58 u4»717 
6o 120104 



nil/4 FPYUI 

'1 1445,42 

4 2 12.1324 
03 14/516 
J"> 120324 

05 142523 
*t> 152324 
X7 047311 
»» 1201o7 
*y 1431^1 
Iw 142724 

11 120322 

12 120(166 

13 152123 
U 15llo! 

15 051724 

16 OPOPOP 

17 B5135 -!?5215 IFWASl .TXTE ,'«I5»«12»ILLEAGlE PUNC HAS / 
lb 146311 

1* 14*714 

20 043501 

21 142714 

22 14324? 

23 d47125 

24 120303 

25 040727 

26 120123 

27 j.JloBoP 

26 K5150 1(15215 WHDRI .TXTE /«! 5»<1SJ»TYPE DRIVE » TO BE TESTED CCR) / 

28 054724 
Jo M252V 1 

31 042240 

32 144722 

33 142526 

34 121640 

35 15224? 

36 120317 

37 1425a? 
3D 15224.) 

38 0517o5 
4u 142724 

41 120104 

42 141496 

43 124722 

44 l J>024» 

45 05171 ,>03215 HM3R! .TXTE /«15»<12»T YPE « OF DRIVES TO BE TESTED (CR) / 
4d 054724 

47 14252H 
4B 121640 

48 14/64.1 
5> 120306 

51 151104 

52 V 53311 

53 051705 

54 152240 

55 120317 

56 142502 

57 152240 
5b »317»5 

58 142724 
60 120104 



0075 FPTU1 


CI 


14145P 


02 


124722 


3i 


00024B 


04 05214 


005215 


as 


1461101 


ac 


120314 


07 


142504 


06 


144526 


08 


142703 


10 


12.1123 


11 


440515 


12 


045523 


10 


042305 


14 


147640 


15 


152125 


lb 


040640 


17 


0421 16 


IS 


152248 


18 


054724 


20 


1446419 


21 


152116 


22 


151305 


23 


050125 


21 


142724 


25 


000104 


26 05242 


005215 


27 


146386 


26 


050317 


28 


054520 


30 


05164(8 


11 


144724 


32 


146314 


33 


14464? 


34 


152116 


35 


151305 


36 


050125 


37 


142724 


36 


120104 


38 


143101 


IB 


142724 


41 


120322 


42 


152311 


43 


153640 


44 


051501 


45 


046640 


4b 


051501 


47 


142513 


46 


120104 


48 


052717 


5» 


000324 


SI 0527,! 


i 005215 


92 


142510 


33 


042101 


54 


146240 


55 


040717 


56 


142504 


57 


120104 


5b 


142523 


58 


120324 


60 


142502 



MKTTI .TXTE /«15»<12»ALL DEVICES) MASKED OUT AND TTT INTERUPTEO 



.TXTE /«15»«12»FL0PPY STILL INTERUPTEO AFTER IT HAS MASK 



.TXTE /«15»«12»HEAD LOADED SET BEFORE 6 STARTS HHERE ISS 



0076 FPYUI 


01 




147706 


02 




142722 


"i 




k>33240 


04 




051640 


05 




040724 


0b 




1523*2 


07 




120123 


08 




044327 


08 




151305 


10 




120305 


11 




051711 


12 




052523 


13 




042305 


14 




000000 


15 


05323 


005215 


16 




152P12 


17 




14451(1 


lb 




120123 


IS 




051711 


20 




040640 


21 




051640 


22 




046525 


23 




040915 


24 




054722 


23 




147640 


26 




120306 


27 




151305 


26 




147722 


28 




051722 


30 




042240 


31 




152305 


32 




141709 


33 




142724 


34 




120104 


35 




044327 


36 




146311 


37 




120305 


38 




052722 


38 




047116 


40 




047311 


41 




120107 


42 




146306 


43 




050317 


44 




054520 


45 




000000 


46 


05362 


005215 


47 




142724 


4b 




152123 


48 




121640 


5fc 




000240 


51 






52 


05367 


054200 


53 


05370 


006110 


54 


05371 


005323 


55 


05372 


1*06110 


5b 


05373 


13 04267 


57 


05374 


024115 


58 


05375 


006212 


59 


0537C 


006110 


60 


05377 


004665 



SUHNDl ,T»TE /«lS»«i2»«12>THIS IS A SUHMARI OF ERRORS DETECTED 



TETNMI .TXTE /«18»«12»TEST » / 



sumkEi 



STA 


S.CUMRE 


JSR 


#IMBSS 


9UMH0 




JSR 


HMtSS 


FPTKD 




LDA 


l.FPTHC 


JSR 


»IZOC?T 


JSR 


*IMESS 


SETER 





ISAVE RETURN ADDRESS 
)PRINT NESSASES 



0077 FP 

01 054»«, 

02 05401 

03 »54*2 

04 05403 

05 054*4 

06 05405 

07 05400 
lb 054*7 
*9 05410 
It! 05411 

11 05412 

12 05413 

13 05414 

14 05415 
ID 034)6 

16 «54J? 

17 05420 
IB 0S421 
1S> 05422 

20 

21 

22 05423 
20 05424 

24 1(5425 

25 U5420 

26 05427 

27 05430 
2b 05431 
2a «)5432 

30 05433 

31 05434 

32 05435 

33 (15435 

34 05437 

35 05440 

36 05441 

37 05442 
3b 05443 

39 05444 
4H 05445 

41 4)5446 

42 05447 

40 05450 

44 05451 

45 05452 

46 05453 

47 05454 
4B 05455 
4S 05456 

50 05457 

51 05460 

52 05461 

53 05462 

54 05463 

55 05464 
56 

57 

56 05465 
59 

60 



ydi 

024264 
026212 
0*61 10 
004741 
024266 
006212 
W061 10 
0*47u2 
024267 
0*6212 
0*61 10 
004753 
£2427" 
0*6212 
081611* 
005004 
024265 
006212 
002260 



;« 



054225 StTtLI 

102400 

040224 

020141 

0*6*77 

0061U 

061100 

040204 

0*6105 

0061H 

fcS0600 

101132 

0.00405 

030161 

113415 

000402 

0192225 

010224 Sfc.121 

0*0761 

03207J 

151004 

000414 

1*1132 

0*04 1* 

030101 

143414 

202225 

006074 

0*41 34 

0*6106 

000403 

0?6C"74 SETjl 

O04267 

0*0104 SET4S 



L0» 

JSR 

JSR 

SETWF 

LD* 

JSR 

JSR 

SETDC 

LUA 

JSR 

JSR 

SETLW 

LDA 

JSR 

JSR 

StTIL 

LDA 

JSR 

JMP 



I.ENBTC 
»IZ0C?T 
PIMESS 

l.WHFLC 
»IZ0CTT 
HMtSS 

1.0CLAT 

#nocn 

♦IMESS 

l.CKWDC 
PIZUC7T 
PIMESS 

l.ILLFC 
♦IZUC7T 
PCOMRE 



ST* 
SOB 
ST* 
LDA 
JSR 
JSR 

pais 

ST* 

JSR 

JSR 

OUC 

MOVZL* 

JMP 

LDA 

ANOW 

JnP 

JMP 

IS2 

JnP 

LD* 

MOV 

JMP 

MOVZLtr 

JMP 

LO' 

AlvOo 

JMP 

JSR 

MOULD 

JSR 

JnP 

JSR 

FPYRD 

JSR 



JMP 



3.REET (! 

0,timit 

0, SETTLE 

PIORI 
•1000* 

0,fpy 

0,AC3? 

•ITIMt 

♦IDQOA 

0.FPY 

0,0, SZC 

SET2 

2. BITS 

0,2,SNR 

.♦2 

»HEET 

TIMIT 

SETtL*3 

2,»IITR 

2,2.SZR 

SET4 

0,0. SZC 

SET3 

2,BIT2 

2,0, SZR 

PREET 

PIERME 

HERCK 

SE14 

PIEHMt 

• IEHR 
»NEET 



AVE RETURN ADDRESS 
(CLEAR AC0 
(CLEAR TIMHER 
(GET SETTLE COMMAND 
(SETUP FOR CORRECT DRIVE 
(ISSUE FUNCTION 
(ISSUE SETTLE TD FLOPPY 
(SAVE FUNCTION 
(WAIT FOR DONE 
(ISSUE FUNCTION 
(GET STATUS 
(IS THE FLOPPY REAOY 
(NO WAIT FOR REAOY 
(GET BIT TO TEST FOR HEAD LOADED 
(IS HEAD LOADED? 
(NO, INCREMENT TIHMER 
(RETURN TO CALLER 
(INCREMENT TIMHER 
(KEEP SENDING SETTLE 
ISEE IF ANY ERRORS 
(ANY ERRORS] 
(YES EXIT 
(IS READY OK 
(NO 

(GET THE HEAD LOAD BIT 
(IS THE HEAD LOADED 
(RE1URN TO CALLER 
(PRINT HEADS WON'T LOAD 

(SEE IF ANY ERRORS 
(PRINT AC'S AND RETURN 
(PRINT FLOPPY NOT READY 

(HEAD WON'T LOAD 
(AC3«FUNCTI0N 
(AC0«STATUS 
(RETURN TO CALLER 



0078 FP 

01 
02 
03 
04 
05 
06 
07 
00 
09 
10 
11 
12 
13 
14 
15 
16 
17 
16 
IS 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 

^o 

34 
3b 
36 
37 
36 
39 
*t. 
41 
42 
43 
41 
45 
46 
47 
4b 

49 05460 

50 05467 

51 05470 

52 05471 

53 05472 

54 05473 
5b 05474 

56 05475 

57 05476 
5b 05477 

59 05500 

60 055*1 



YDI 



(FILENAME. DIAGSUP 

(THIS PACKAGE IS USED TO SETUP THE SUBTESTS TOR THE PROGRAMS 
(THAT RUN ON NOVA, ECLIPSE AND MICRONOVA TYPE COMPUTERS, 

("liNT?R» EN 

l"i:YC?E" fcN 

(»I:RR?« ENT 

(OF A TEST 

(CAN BE OBT 

( 

(NOTEl THI 

(in oroer t 
(Page zerui 

I 

(AT LOC 201 HELP! 

(AT LOC 203 PASSl 

(ALSO AC37I 

( SNREGI 

t IINPtl INP7J 
( OR 

> INPTI 

( ICRlTFI crl?f 

I IPDC7SI P0C7S 

( IP0C7TI POCJT 

( IZ0C7TI Z0C7T 

( IENT7RI ENT7R 

( ICYCTEl CYC7E 

( IERR7I ERR7 



TRY IS USED TO BEGIN A NEW TEST, 

TRY IS USED TO END A TEST, 

RY IS UStO ON SEEING AN ERROR, WHEN THE FIRST ERROR 

IS SEEN A MESSAGE IS OUTPUT. THE PRECENT ERROR RATE 

AINED BY SETTING BIT 3 OF SWREG, 

S> PACKAGE REQUIRES THE TTVIO AND SWPAK PAKAGES 
RUN, IT ALSO NEEDS THE FOLLOWING VARIABLES IN 



TEST STARTING ADDRESS 
PROGRAM PASS COUNTER 
STORAGE FOR AC3 
NEEDED BY SwPAK 
POINTERS 
TO 

TTYIO 

PACKAGE 

ROUTINES 

POINTERS TO ROUTINES IN 
THIS PACKAGE 



(ThE ENT7R ROUTINE liTARTS EACH SUBTEST BY STORING ITS 

(STARTING ADDRESS IN PAGE ZERO, SETTING ITS ITERATION 

(COUNTER (ON THE FIRST PASS OF THE PROGRAM THE ITERATION 

(COUNTER IS ALWAYS FORCED TO 1). ENT7R THEN CLEARS 

(TME ERROR COUNT AND STARTS THE TEST, 

( 

(THE CALL TO EN"?K MUST BE FOLLOWED BY A WORD CONTAINING 

(THE ITERATION COUNT FOR THIS TEST. 

) 

( EXAMPLE! 

( 

; 
i 
( 

(THIS WILL START « 1'EST WITH ITS ITERATION COUNT SET TO J0. 
(IENT7R IS A PACE Zf:RU POINTER TO ENT7R 



JSR 
10. 



•IENT7R 



17540* 
054522 
054202 
035777 
«5452* 
054520 
17046* 
•»545l7 
054517 
034203 
175004 
0*2510 



ENT7RI 



INC 


3,3 


STA 


S,L007R 


ST* 


3, HELP 


LD* 


3,-1 ,3 


ST* 


3.ITR? 


ST* 


3,ITR7T 


SUBC 


3,3 


ST* 


3.ITR7R 


ST* 


3,I1R7C 


LD* 


3, PASS 


MOV 


3,3,SZR 


JMP 


PL007H 



(GET THE TEST STARTING ADORES!! 

(STORE IN RETURN LOCATION 

(STORE IN PAGE ZERO 

(GET TEST ITERATION COUNT 

(SAVE IT 

(SET TEST ITERATION COUNTER 

(CLEAR ERROR SWITCH 
(CLEAR ERROR COUNTER 
(GET THE PROGRAM PASS COUNT 
(IS THIS THE FIRST PASS 
(NO EXIT 



B07B FHYJl 

01 05502 176520 

02 «j55PJ 0543b7 

03 05504 054507 

id 4 »5Sl*5 BP2504 
cis 

ii7 

«8 

bw 
la 
11 
12 
13 
14 

15 05506 354510 

16 05507 063710 

17 BSSlie 006206 
IB 05511 B14502 
19 B55W B02477 
2B 05513 034501 

21 BS514 175005 

22 0551S 002501 

23 05516 B34474 

24 05317 054474 

29 U592B B34205 

26 05521 177100 

27 B5522 177103 

28 05523 B00424 
2y 05024 040473 

30 B5S29 044473 

31 05529 050473 

32 05527 102550 

33 05530 040472 

34 05531 006207 

35 05532 1«2400 

39 05533 024462 
37 05534 030471 

36 05535 004442 
3B 05536 030454 

40 05537 004424 

41 0554B B06210 

42 05541 000045 

43 05942 020460 

44 05543 101200 

45 05544 020453 
4b 05545 B24453 
47 05546 030453 
4b 05547 176400 
4tf 09550 054445 

50 05551 034443 

51 B55S2 175004 

52 05553 034205 

53 05554 177113 

54 05559 B02434 

55 05556 0(12440 
56 

57 05557 102400 
96 09560 054443 
99 09961 142432 
50 05562 000413 



SuBZL 


3.3 


(YES FORCE ITERATION 


ST* 


3.ITR? 


(COUNT TO 1 


ST» 


3,I1R?T 




JMP 


PLOOTR 


(EXIT TO TEST 



(THE CYCTE ROUTINE IS USED TO END » SUBTEST IT HANDLES 

(THE ITERATION UP THE SUBTEST AND THE PRINTING OF THE 

IX ERROR RATE IF BIT 3 OF SwREG IS. SET. 

I 

iTHt CALL TO CYC7E ISI 

HCYC7E 



(STORE THE END OF TEST ADDRESS 
IIF A TTY KEY HAS BEEN HIT 
(GOTO SERVICE ROUTINE 
(ALL ITERATIONS DONE? 
(NO, LOOP AGAIN 

(ANY ERRORS? 

I NO GO TO NEXT TEST 

(YES RESET THE ITERATION COUNTER 



1 

1 




JSR 


1 

IxHtKE 


ICVC7E 


16 A PAGE ZERO 


CYC7E1 


ST» 


3,LUP?ET 




SKPDZ 


TTI 




JSR 


•IINPJ 




DSZ 


ITRTT 




JMP 


PL007R 




LUA 


3,ITR?R 




NOV 


3,3,SNR 




JMP 


PL0P7ET 




LUA 


3,ITR? 




STA 


3, ITRTT 




LOA 


S.SwRfcG 




AUDL 


3,3 




ADOL 


3,3,SNC 




JMP 


CYC72 




ST» 


0,AC0t 




STA 


i.acw 




STA 


2,AC2? 




SUBCL 


0>0 




STA 


0,CAR? 




JSR 


PICRL7F 




SUB 


010 




LUA 


l.ITRTC 




LOA 


2.K10T0 




JSR 


MUL? 




LUA 


2,ITR? 




JSR 


OIVTO 




JSR 


f IPDC7S 




M X 
LUA 


B.CAR? 




MOVR 


0,0 




LUA 


0.AC07 




LOA 


1.AC17 




LU« 


2.AC2? 


CYC72I 


SUB 


3,3 




STA 


3.ITR7C 




LDA 


S,ITR?R 




MOV 


3,3,8ZR 




LUA 


3, SwREG 




ADDL* 


3,S,SNC 




JMP 


PLOOTH 




JMP 


•LOPTET 


|AC1«REN AC0n(AC0,ACl)/AC2 


DIV7I 


SUB 


0,0 


DIV7BI 


STA 


3,MDV73 




SUBZW 


2,0,8ZC 




JMP 


MUV73 



IIS BIT 3 SET? 

mo EXIT 

I YES PRINT XERROR RATE 

(SAVE THE WORLD 



(PRINT CAKRAGE RETURN 

(PRINT FAILURE RATE 
(RESTORE THE WORLO 

(RESET THE ERROR COUNTER 



(LOOP ON ERROR? 
(YES 

I NO 



008P FPY 

01 05563 

02 05564 

03 05965 

04 05566 
«5 05567 

06 05570 

07 05571 
06 05572 
0k 05573 

10 05574 

11 09575 

12 05576 
13 

14 05577 
15 

16 0560B 

17 05601 
16 05602 
It 09603 

20 09604 

21 05605 

22 05606 

23 05607 

24 05610 

25 05611 

26 05612 

27 05613 

28 05614 
20 05615 

30 05616 

31 05617 

32 05620 

33 05621 

34 05622 

35 05623 

36 05624 

37 05625 

38 05626 
38 05627 
40 

41 
42 
43 
44 
45 

4b 

47 
46 
4U 
50 
51 
52 
93 
54 
55 
56 
57 
56 
58 
60 



UI 

054440 

034442 

125120 

101100 

142412 

142400 

125100 

175404 

000773 

176441 

176420 

002425 

102460 

05442J 
034425 
125203 
101201 
143220 
175404 
000774 
125260 
002413 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000144 
177760 

001000 



D1V70I STA 
LOA 
HOVZL 

MUV72I MOVL 
SUB* 
SUB 
HUVL 
INC 
JMP 
SUBO 

M0V73I SUBZ 
JMP 

( CAC0,AC1)«AC1 

MUL?! SUBC 

| (AC0,AC1)*AC1 

MUL7AI STA 
LOA 

MDV74! MOVR 
MOVR 
AUDZR 
INC 
JMP 
MOVCR 
JMP 

L007RI 

ITR7I 

ITR7TI 

ITR7RI 

ITR7CI 

L0P7ETI 

AC07I 

AC17I 

AC2?: 

CAR?) 

MDV75I 
.RT7NI 
K1070I 
MDV71I 
C1B76I 



3,MDV75 
3,MDV71 
1,1 
0,0 

2,0,SZC 
2,0 
1,1 

3,3,SZR 
MDV72 
3,3,9KP 
3,3 

PMDV75 
• AC2 

0,0 

•AC2«AC0 
3,MDVT5 
3,MDV71 
1,1, SNC 
0,0, SKP 
8,0 

3, 3, SIR 
M0V74 
1,1 
PM0V7S 



(DIVIDE 



100. 

• 20 
001000 



(THE ER«? ROUTINE 18 USED IN CASES WHEN A SUBTEST FAILS 
(THIS ROUTINE KEEPS A COUNT OF THE NUMBER OF TINES 
(THE TEST FAILED AND FOR THE FIRST ERROR IN A TEST IT KILL 
(PRINT THE CONTENTS OF THE ACCUMULATORS, THE CARRY 
(AND THE PROGRAM COUNTER. THE PROGRAM THEN 00E$ ONE OF THREE 
(THINGS OEPENUING ON THE BIT 8ETING8 OF SWREG IT WILL 
(PRINT A MESSAGE SAYING IT HALTED AND STOP EXECUTION, 
PRINT A MESSAGE SAYING IT IS LOOPING ON THE ERROR AND RESTAR1 
(THE TEST OR IT WILL CONTINUE TO THE NEXT TEST PRINTING NO 
(MESSAGE. IF BIT 6 OF SWREG IS SET THE ROUTINE HILL HALT ON 
(ANY ERROR ENCOUNTERED. 

(THE CALL TO ERR? SHOULO BE EXECUTEO ONLT IF THE SUBTEST 

(FAILS ANU SHOULO BE PRECEEOEO BY AN INSTRUCTION WHICH STORES 

(AC3 IN A PAGE ZERO LOCATION "AC3?" IF THIS IS NOT DONE THE 

(PRINTOUT FOR AC3 WILL BE ERRONEOUS. 

( 

(AN EXAMPLE OF THE CALL ISI 

I 

I XXX 



(INST SKPS IF TEST PASSED 



ten fpvui 






«i 


JMP 


.♦2 


a 


JMP 


.♦3 


33 


STA 


3, ACS? 


04 

05 


JSR 


»IEKR7 


ei6 
a? 
ab o5630 034774 1 


WHERE IEHR? IS * PAGE 


.RR7I STA 


3..RT7N 


09 05631 063710 


SKPOZ 


TTI 


IB 05632 006206 


JSR 


»IINP? 


11 03633 010762 


ISZ 


ITR7C 


12 05634 000401 


JMP 


• ♦I 


13 1(3636 04O762 


STA 


0.AC07 


14 05636 fc447t>2 


STA 


1, AC17 


IS 6)5637 050762 


STA 


2,AC27 


16 195640 102560 


SUBCL 


0,1 


17 05641 O40761 


STA 


0,CAR7 


18 85642 £34752 


LUA 


3.ITR7R 


IV 05643 175004 


MOV 


3,3,SZH 


2D 05644 000445 


JMP 


ERR73 


21 0564b 006107 


JSR 


»IMES?S 


22 0564b 005720 


HEA7DH 




23 05647 024753 


LUA 


l.CAR? 


24 05650 006212 


JSR 


PIZ0C7T 


25 05651 024746 


LDA 


l.ACB? 


26 05652 036211 


JSR 


•IPUC7T 


27 0565J 024745 


LDA 


l.ACW 


26 05654 006211 


JSR 


PIPOCJT 


29 05655 024744 


LD» 


i,AC2? 


30 05656 006211 


JSR 


PIP0C7T 


31 05657 024204 


LDA 


1,AC3? 


32 0566b 006211 


JSR 


PJPBC7T 


33 05661 024743 


LOA 


1..RT7N 


34 05b62 044732 


STA 


1.ITR7R 


35 05663 006211 


JSR 


PIP0C7T 


36 05664 034205 


LOA 


3,S«RtG 


37 05665 030742 


lua 


2.C1B7S 


36 05666 157400 


AMD 


2.3 


39 05667 024733 


LUA 


l.CAR? 


4(1 0567» 1252019 


MUVR 


li 1 


41 05671 020726 


lu» 


0,AC07 


42 05672 024726 


LUA 


l,AC17 


43 05673 030726 


LUA 


2.AC2J 


44 05674 175004 


MUV 


3.3, SZR 


45 05675 O0O407 


JhP 


ERR71 


46 05676 034205 ERR72I LUA 


3,S»RtG 


47 05677 177132 


ADOZL* 


3,3, SZC 


46 05700 002724 


JMP 


».RT?N 


49 05701 006107 


JSR 


»IHES7S 


50 05/02 003740 


LU07T 




51 05703 002721 


JMP 


».RT?N 


52 05704 006107 ENR71I JSR 


HIMtSJS 


53 05705 005753 


ST07P 




54 05706 063077 


MALT 




55 05707 034205 


LUA 


3,SwREG 


56 05710 000766 


JMP 


ERR72 


57 03711 034205 ERR73I LUA 


3,SHREG 


56 05712 03H715 


LUA 


2,C1B76 


59 05713 157400 


AND 


2,3 


60 05714 030705 


LUA 


2,AC27 



(TEST FAILED 
(TEST PASSED 
(STORt AC3 IN AC37 



(SAVE RETURN ADDRESS 

(IF A TTY KEY HAS BEEN MIT 

(GOTO SERVICE ROUTINE 

(INCREMENT ERROR COUNT 

(NO OP 

(SAVE THE NORLD 



IIS THIS THE FIRST ERROR 
(YES SKIP 

(NO RETURN 



(PRINT THE AC'S, CARRY AND PC 



(SET ERROR SWITCH 



(RESTORE THE WORLD 



(HALT ON ERROR? NO SKIP 
(YES SOTO HALT ROUTINE 

(LOOP ON ERROR? 

(NO RETURN 

(YES SAY SO AND RETURN 



(PRINT HALTEO SND STOP 



(RESTORE ACS WITH SWREG 
(CONTINUE FROM THE ERROR MALT 
(HALT ON ERROR? 



0082 FPYDI 


01 


03715 


175004 


02 


05716 


063077 


H3 


95717 


002705 


04 


05720 


005215 


03 




005215 


06 


03722 


141615 


07 




054722 


06 




040411 


09 




030303 


10 




04O4U 


11 




130703 


12 




040411 


13 




131303 


14 




040411 


15 




031703 


16 




050011 


17 




120303 


16 




005215 


19 




000215 


20 


05740 


005215 


21 




147714 


22 




050317 


23 




047311 


24 




120107 


25 




047317 


26 




142640 


27 




151322 


28 




151317 


29 




005215 


30 




000000 


31 


05753 


005215 


32 




040510 


33 




152314 


34 




042305 


35 




147640 


36 




120116 


37 




151305 


3D 




147722 


39 




106722 


40 




000012 


41 






42 






43 






44 






45 






4b 






47 






48 






49 






30 






51 






ii 






53 






54 






5b 






56 






57 






6o 






59 






60 







MUV 3, 3, SZR 

HALT (YES STOP EXECUTION 

JMP #.RT?N (NO RETURN TO TEST 

ME*?OHI .TXTE l<15»«12»«15»«12»«15» 



CK» 



AC0 



AC1 



AC2 



AC3 



PC «1I»»«12»«13>1 



L0C7TI .TXTE Hl5»«t2>L00PINS ON ERR0R«1S»«1S!»| 



ST07PI .TXTE I'I1S»<i|2»HALTE0 ON ERR0R415»«12» 1 



(FILENAME4TTYI0 

(TELETYPE NON HTERRUPT PACKAGE 
(CARRY, AC0,AC1,AC2 SAVED 

("MES7S" PRINTS ASCII MtSSAGES AS SPECIFIED BY ASSEMBLER 

("CKL7F" PRINTS A CARRIAGE RETURN 

l"POC?T« PRINTS CC1) IN OCTAL 

("ZJC7T" PRINTS C(l) IN OCTAL, LEADING ZEROS SUPPRESSED 

("P3E7C" PRINTS C(l) IN OECIHAL, LEADING ZEROS SUPPRESSED, 

(TH- ABOVE THREE ARE FOLLOWED BY A TAB 

("PJC78" PRINTS Ctl) IN DECIMAL, LEADING ZEROS SUPPRESSED, 

(FOLLOWED BY THE CHARACTER STORED AT CALLING LOCATION *|, 

(PRjGHAM RETURNS TO CALLING LOCATION *2. 

("TIN70" ACCEPTS OCTAL, AND 



B0B3 FPYJ 
01 
02 
03 

04 

as 

06 

?7 

06 

09 

IB 

11 

12 

13 

14 

15 

16 

17 

18 

16 

20 

21 

22 

23 

24 

25 

26 

27 

28 

2S 

3C 

31 

32 

33 

34 75765 

35 t!5766 
3b 0S767 
37 B377B 

36 B5771 
3SP 03772 

40 B5773 

41 05774 

42 05775 

43 05776 

44 05777 

45 B60B0 

46 B6BIM 

47 B60B2 

48 B6003 

49 06004 
5B BSBBS 
31 06006 
Si 

33 
34 
3b 
36 
37 
56 
SB 
60 



SINGLE PRECISION SIGNED INTEGERS 

LEADING NULLS, TABS, 
4 16 BIT UNSIGNED INTEGER IS 

A MINUS SIGN IS TYPED. 

ERROR WITH AC0«BAD CHARACTER. 
TERMINATING CHARACTER) 
MINATING CHARACTER 

IS, 55 
FEED, CARRIAGE RETURN, COMMA 
DONE, THEN TTO IS CLEAREO, 
LAST DIGIT TYPEO IN 'TIN?0' AND 



("TIN7D" ACCEPTS DECIMAL 
UNTO AC1 FROM THE TTI. 
(AND SPACES ARE IGNORED, 
IFORMED, THEN NEGATED IF 
IEX1T AT CALL*1 IF INPUT 
I (NOT A LEGAL DIGIT OR 
(EXIT AT CALL*2 UPON TER 
( KITH AC0»0, a, 40, 12, 
I FOR NULL, SPACE, LINE- 
tTHE ABOVE HAIT FUR TTO 
(NUBOUT "ILL OELETE THE 
('TIN70' 

l»CHC7T« PRINTS ASCII CHARACTER IN CC0)R| CCB)L MUST BE B. 
(EXITS CALL *2 IF C(8)R«B( SIMULATES TAB 

("TYP7E" PRINTS C(«)R TO THE TTO OR LPT OR BOTH AS PER THE 
(SWITCH SELECTION REGISTER >S«REG'. 
(EXITS AT CALL*!. REPLACE "TYP7E" KITH 
(INTERRUPT ITTPTE' IF DESIRED, 

("TPS7P" PRINTS A SPACE AND EXITS AT CALL*! NITH AC0 ■ 4B 



I 

(MESTS ROUTINE 

I 

(THE CALLING SEQUENCE 151 

( 

( JSR PINESTS 

( POINTER TO MESSAGE TO 

I 



B34551 MES7SI 

B 514562 

034547 

010546 

0314B0 

024417 

021000 HES7MI 

125112 

I237B1 

123401 

1314B0 

124000 

0B44J4 

000771 

000402 

084411 PLS?T( 
004551 PEXTTl 
002530 

I 



STA 

JSR 

LDA 

ISZ 

LDA 

LDA 

LOA 

MOVL* 

ANOS 

AND 

INC 

COM 

JSR 

JMP 

JHP 

JSR 

JSR 

JMP 



3,RTN?A 
SAV7E 
3.RTN7A 
RTN7A 

2, a, 3 

1.P3777 

0,8,2 

1,1, szc 

1,8, SKP 
1,8, SKP 
2,2 

1,1 

CHCTT 
MESTM 

.♦! 

CHC7T 
RST7R 

PRTNTA 



BE PRINTED 



(SAVE THE RTN ADORESS 
(SAVE THE STATE OF MACHINE 
( 

(C(2) POINTS TO MESSAGE 
(A 8 BIT MASK 
(CC2)»0ATA NORD 

|CCB)«DATA CMARACTOR RIGHT 
(INC TO NEXT NORD 
(FLIP MASK 
(PRINT 

(ANOTHER 

(RESTORE THE STATE OF MACHINE 
(EXIT 



(CHC7T ROUTINE 

(THE CALLING SEGUENCE ISI 

I 

( LDA 

( JSR 

I 



«, CHARACTER TO BE PRINTED (RIGHT BYTE) 

»ICHC7T 



B084 FHYUI 
81 

i92 B6BP7 eeiuenjf" pspti 

03 uSBlh U0«00<" SPT7G! 

84 B6B11 B0K377 P3777I 

03 B6B12 000011 PC171I 

B6 06013 UBB?BH CHRJE1 

87 06014 000000 CAC78I 



09 06015 
IB 06016 
U 0601/ 

12 06020 

13 06021 

14 06B22 

15 06023 
16 

17 06024 

18 B6B25 
III B6B26 
2B B6B27 

21 B6B3B 

22 B6B31 

23 06032 

24 06B33 
25 

26 B6B34 

27 B6035 

28 B6B36 
2» 06837 
30 06040 
31 

32 B6B41 

33 

34 

33 

36 

37 

36 

38 

4B 

41 

42 

43 

44 06042 

45 B3043 

46 06844 

47 06B45 

48 06046 
4» 06047 

30 0603b 

31 06031 
Si 

33 
54 
55 
56 
57 
58 
3ft 
60 



040777 CHC7TI 

101315 

001*01 

175100 

BS4772 

034770 

116415 

0P0403 

004556 

00B407 

B84551 CHA73I 

020513 

U34410 

163404 

000774 

B4BS07 

B20737 CHE7XI 
0347S5 

17S2B0 
081400 

000007 PC771 



377 
11 



STA 

MOVS* 

JMP 

MOVL 

STA 

LDA 

SUB* 

JMP 
JSR 

JMP 

JSR 

LDA 
LUA 
AND 
JMP 

STA 
LDA 
LDA 
MOVR 

JMP 



0,CAC70 

B.B.SNR 

1,3 

3,3 

3,CHR7E 

3.PC171 

0,3,SNR 

CHA73 

TYP7E 

CHETX 

TPSTP 

0.CHR7Z 

3,PC77 

3,0, SZR 

CMA73 

b,chrtz 

0,CAC78 
3.CHR7E 
3,3 
8,3 



CRLtF ROUTINE 
THE CALLING SEQUENCE ISI 
JSR PICRL7F 



054474 CRLTFI 
004503 
020403 
004336 
B2B4B2 
000733 
B0BB12 K127I 
BP0015 K137I 



STA 

JSR 

LDA 

JSR 

LOA 

JMP 

12 

15 



3.RTN7A 

SAV7E 

B.K137 

TYPte 

0,K127 

PLS7T 



(ACS SAVE IN CHCTT ROUTINE 

(SAVE ACB 

(RETURN *2 IF NULL 

(FOR CARRY SAVE 

(PRINT CCI) RIGHT 

(ACS ■ 11 

(SKIP IF A TAB IS NOT TO 

(BE SIMULATED 

(PRINT IT 

(EXIT 

(PRINT A SPACE 

(AC* » 7 

(SIMULATE A TAB KITH 1 
(TO 7 SPACES 

(RESTQRS ACS 
(RESTORE CRY 
( 
(EXIT 



(SAVE RETURN 
(SAVE THE NORLD 

(PRINT CARRIAGE AND LF 

(GO TO RESTORE THE RORLD 



(Z0C7T, P0C7T, PDC7S AND P0E7C ROUTINES. 

(THE CALLING SEQUENCE ISI 

P 

( LDA 

I 



1, OCTAL NUMBER 
(LEADING ZEROE 



TO BE PRINTED 
I SUPPRESSED) 



0085 FP' 

01 
0* 
03 
04 

05 
at 

07 
36 
iv 
10 
11 
12 
13 
14 
15 
16 
17 
18 
IS 

ae 

21 
92 
23 

24 06052 

25 06033 

26 06054 

27 06055 
2b 06056 
2b 06057 

3b e6t>6<a 

31 06061 

32 060C2 

33 »6l)63 

34 06064 

35 06065 

36 06066 

37 B6I867 

38 06070 
39 

4tf 

41 06071 

42 06072 

43 06073 

44 06074 

45 06075 

46 86076 

47 06077 

48 06100 

49 06101 
50 

51 

52 06102 

53 06103 

54 06104 

55 06105 

56 06176 

57 061*7 

58 06110 

59 06111 

60 06112 



JSR PIZ0C7T 
THE CALLING SEUUENCE ISI 
LDA 
JSR 

THE. CALLING SEUUENCE ISI 

LUA 

JSR 
TMt CALLING SEuUtNCE ISI 



I, OCTAL NUMBER TO 8E PRINTED 
(LEADING ZEROES NOT SUPPRESSED) 
•IPUC7T 



1, DECIMAL NUMBER TO BE PRINTED 
CLEADING ZEROES SUPPRESSED) 
•IPOEtC 



034464 
004475 
102400 
000404 
0S4460 
004471 
020464 
152620 
034463 
000416 
175400 
054451 
004462 
034447 
021777 



040716 
102000 
000404 
054442 
004453 
102400 
034751 
030446 
040707 



101415 
101400 
040543 
054442 
034541 
102001 
146400 
101405 
151235 



PDC72I 
PDCTll 



DC07T; 
DEC?TI 



LDA 



JSR 
ALPHA 



STA 

JSR 

SUB 

JnP 

STA 

J5R 

LUA 

SUBZR 

LUA 

JMP 

INC 
STA 
JSR 

LDA 
LUA 



STA 
ADC 
JMP 
STA 
JSR 
SUB 
LDA 
LUA 
STA 



INCH 

INC 

STA 

STA 

LDA 

ADC 

SUB 

INC 

MOVZR* 



1, DECIMAL NUMBER TO BE PRINTED 

CLEADING ZEROES SUPPRESSED) 

♦IPDC7S 

WHERE ALPHA IS THE CHARACTER PRINTED 

AFTER THE DECIMAL NUMBER 



3.RTN7A 

SAV7E 

0,0 

ZP07T 

3,RTN?A 

SAV7E 

0,PC670 

2.2 

3.PC1T0 

PDC71 

3,3 

3,RTN7A 

SAV7E 

3.RTN7A 

0,-1,3 



0.PSP7 

0,0 

P0C72 

3.KTN7A 

SAV7E 

0,0 

3.K127 

2,DET7B 

0,SPT7S 



0,0, SNR 
0,0 

0,ZSU7P 
3.TMP7 
3.ZSU7P 
0,0, SKP 
2,1 

0,0, SNR 
2, 2, SNR 



SAVE THE RTN ACOHESS 
SAVE THE 'ORLO 



SAVE THE RTN ADDRESS 
SAVE THE WORLD 

PRINT CC1) IN OCTAL 

C(2)«100000, C(3)«10 

UPDATE THE RTN AUDR PNTR 

SAVE THE WORLD 

READ THE CHARACTER TO BE 

PRINTED AFTER THE DECIMAL 

NUMBER 

SAVE THE SPECIAL CHAR, 

AC0» -1 

SAVE THE RTN ADDRESS 
SAVE THE WORLD 

CC3)H2 

PRINT CCU IN DECIMAL 

ACTIVATE/DEACTIVATE THE TAG FOR 

SPECIAL CHARACTER 

BOTH ENTRIES PRINT NUMBER 

SKIP IF AC0 IS NOT *1 



(THEN TAB TO NEXT POSITION 

(SAVE AC3 

(ZEROS SUPPRESS STUF 

(SKIP FIRST TIME HERE PER DIGIT 

(DIVIDE C(AC1) BT CCAC2) 

I 

IFOR ZERO SUPPRESS 





01 
02 
03 
44 
05 
06 
07 
06 
09 
10 
11 
12 
13 
14 
15 
16 
17 
16 
IS 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 
36 
35 
40 
41 
42 
43 
44 
45 
46 
47 
48 
4S 
50 
51 
52 
53 
54 
56 
56 
57 
58 
59 
60 



»86 FPYUI 

06113 034431 

06114 146453 
06116 000773 

06116 054531 

06117 163004 

06120 004673 

06121 034426 

06122 102400 

06123 172423 

06124 00»4M3 

06125 101400 
06126. 0P077S 
06127 111004 

06130 000756 

06131 034657 

06132 020660 

06133 175405 

06134 020653 

06135 000647 



IDA 


3,PC670 


SUBU* 


2,1 ,SNC 


JMP 


,-S 


STA 


3.2SU7P 


ADD 


3,0,SZR 


JSR 


CHC7T 


LDA 


3,TMP7 


SUB 


l,» 


Suez 


3,a,SNC 


JMP 


.♦3 


INC 


0,0 


JMP 


.-3 


MOV 


0,2,SZR 


JMP 


DC07T 


LDA 


3.SPT7G 


LDA 


B.PC171 


INC 


3, 3, SNR 


LUA 


0,PSP? 


JMP 


PLS7T 



136 000000 RTN7AI 

137 000000 PCR7YI 

140 000000 PAC70I 

141 000000 PAC71: 

142 000000 PAC72I 

143 000000 CHR72; 

144 000060 PCN70I 

145 k-00010 PC:t70i 

146 023420 0Ef7Bl 

147 000000 TMP7I 



I 

(SUBTRACT M0RE7 

(YES, SO BACK 

(NO, SAVE ZERO SUPPRESS FLAG 

IC CD) ■oieu 

IMAKE ASCII 

(PRINT 

(RESTORE ACS 

( 

(DIVIDE CCAC2) BY CCAC3) 

(SKIP IF ACS » AC2 

(AC3 < AC2 

(SUBTRACT MORS: 

(WAS IT LAST 0IGIT7 

(NO, GET NEXT DIGIT 

(YES, CHECK THE SPECIAL CHAR FLAG 

(FOLLOW THE PRINTOUT WITH 

(TAB IF NOT SfCL CHAR FLAG 

(OTHERWISE FOLLOW WITH THE CHAR 

(TO EXIT 



(CRY SAVE LOCATION 

(AC! SAVE LOCATION 

(AC1 SAVE LOCATION 

(AC2 SAVE LOCATION 



60 
10 
100 





I 

( 1IAV7E , SAVE THE WORLD ROUTINE 

I 

( "HIS ROUTINE SAVES AC0,AC1,AC2 AND CRY 



06150 040770 SAV7E: STA 0.PAC70 

06151 044770 STA 1.PAC71 

06152 050770 STA 8.PAC72 

06153 101100 MOVL 0,0 

06154 040763 STA 0.PCR7V 

06155 0P1400 JMP 0,3 



HST7R , RESTORE THE WORLD ROUTINE 

THIS ROUTINE RESTORES THE AC0,AC1,AC2 AND CRY 



06156 020761 RSTTRI LDA P.PCR7Y 

06157 101200 MQVR 0,0 

06160 020760 LDA 0,P»C70 

06161 024760 LUA 1.PAC71 

06162 030760 LDA 2,P>C72 

06163 001400 JMP 0,3 



8087 PPYOI 

31 
02 
03 
04 

05 

ae 

07 

as 

09 
Id 
11 
12 
13 
1* 
16 
16 
17 
18 
IB 
SB 
21 
22 
23 
24 
29 
26 
27 
28 
26 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
3D 
51 
52 
53 
54 
55 
56 
57 
58 
58 
SB 



TYPTE ANO TPSTP ROUTINES. 
THE CALLING SEQUENCE 131 



LDA 
JSR 



0, CHARACTER TO BE PRINTED CRISHT BYTE) 
PITYP7E 



THE CALLING SEQUENCE IS! 



JSR PITPS7P 

NORMAL RETURN NITH AC0 • 40 



06184 135005 RUB7I MOV 

06185 000467 JMP 

06166 126400 SUB 

06167 156422 SuBZ 

06170 125401 INC 

06171 157001 ADD 

06172 000775 JMP 

06173 054501 ST1 

06174 020750 LDA 

06175 163000 ADD 

06176 004405 JSR 

06177 000524 JMP 

06200 040445 TPSTPl STA 

06201 020447 LDA 

06202 101001 MOV 

06203 040442 TYPTE1 STA 

06204 175100 MOVL 

06205 054441 STA 

06206 034567 LDA 

06207 163400 ANO 
06210 034564 LDA 



06211 179404 INC 

06212 034205 LDA 

06213 177100 ADDL 

06214 175112 MOVL* 

146215 000405 JMP 

06216 061111 TTY7I DOAS 

06217 063511 SKPBZ 

06220 000777 JMP 

06221 060211 NIOC 

06222 177100 PLPTTl ADDL 

06223 177103 ADDL 

06224 000403 JMP 

06225 061117 DOAS 

06226 083517 SKPBZ 

06227 000777 JMP 

06230 060217 NIOC 

06231 034544 TPR7TI LDA 

06232 116043 AOCO 

06233 034415 LOA 



1,3,SNR 

TIN7R 

111 

2.3, SZC 

1,1. SKP 

2, 3, SKP 

..3 

3.FSTT0 

0,Pt6?0 

3,0 

TYP7E 

TIN7N 

0, TACTS 

B,PC470 

0,0, SKP 

0,TAC70 

3,3 

3.TYP7R 

3,P1777 

3,0 

3.INT7 



3,3,SZR 

3,SNREG 

3,3 

3, 3, SZC 

PLP7T 

0.TTO 

TTO 

.-1 

TTO 

3,3 

3,3,SNC 

TPR7T 

0,LPT 

LPT 

.-I 

LPT 

3.P1777 

0,3, SNC 

3,PC476 



(CAN'T RUB-OUT IF Ad • 
(RETURN WITH ILLEGAL CHARACTER 

(SKIP IF AC3 IS LESS THAN AC2 



l"FST70" IS NON »1 
(AC0 • 80 

(ECHO AND DELETE THE DIGIT 



(SAVE AC0 

(SKIP OVER AC0 SAVE 

(SAVE AC0 

(SAVE CRY AND RTN AODR 

(TYPE THE RIGHT BYTE OF AC0 

(STRIP THE PARITY BIT 

( 

(IF IT IS HERE DUE TO SNITCH 

(SETTING ROUTINE THEN THE TYPE 

(OUTS TO THE TTY KILL BE ENABLED 

(SKIP IF INT7 IS -1 

(READ THE SNITCHES 

(SHIFT AC3 BY 2 PLACES 

(8K1P IF TYPEOUTS ARE NOT 

(SUPPRESSED 



(CLEAR TTO DONE FLAG 
(SHIFT AC3 BY 2 PLACES 
(SKIP IF THE OUTPUT IS 
(REQUIRED ON THE LPT 

(OUTPUT THE CHARACTER TO LPT 
(BAIT FOR LPT 

(CLEAR THE DONE FLAG FOR LPT 

( 

(SKIP IF IT HAS RUBOUT 

(ACS • 40 



01 
01 
02 
03 
04 
05 
06 
B7 
06 
09 
10 
11 
12 
13 
14 
15 
16 
17 
16 
18 
20 
21 
22 
2,1 
24 
25 
26 
27 
26 
2 Si 
30 
31 
32 
33 
34 
35 
36 
37 
3b 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
5S 
56 
57 
36 
39 
60 



188 FPYDI 

06234 162432 

06235 010706 

06236 034341 

06237 116443 

06240 054703 

06241 020404 

06242 034404 

06249 179200 

06244 001400 

06245 000000 TAC70I 

06246 000P00 TYP7RI 

06247 000000 ZSU7PI 

06250 000040 PC470I 



SUBZ* 


3,0, SZC 


ISZ 


CHR7Z 


LOA 


3.PC175 


SUBO 


0,3,SNR 


STA 


3.CMR7Z 


LDA 


0.TAC70 


LOA 


3.TYP7R 


MOVR 


3,3 


jnP 


0,3 








(SKIP FOR NON PRINTING CHR, 



»CR« 



(ACS • 13 

(SKIP IF IT MAS NOT A 

(CLEAR THE HORZ POS 

(RESTORE AC! 

(RESTORE CRY ANO RTN AOOR 

I 

(RETURN 



TIN70 AND TIN70 ROUTINES, 
THE CALLING SEQUENCE ISl 



JSR 



ERROR RETURN 
NORMAL RETURN 



NOTEI 



0ITIN7O (ACCEPT IN OCTAL 



WITH BAD CHARACTER IN AC« 
WITH TERMINATING 
CHARACTER IN AC0 
0,40,12,13,55 FOR 
NULL,8PACE,L/F,C/R ANO 
COMMA RESPECTIVELY, 



THE NUMBER IS ACCEPTED IN ACl FROM TTI BY TIN70 ANO 
BAD CHARACTER IS ANY CHARACTER THAT IS NOT A LEGAL 
OIGIT OR A TERMINATING CHARACTER 

THE CALLING SEQUENCE ISl 

JSR PITIN70 (ACCEPT IN DECIMAL 
ERROR RETURN (SAME FORMAT AS TIN70 
NORMAL RETURN 



06251 020525 TIN7C1 

06252 064731 
06233 010663 TIN7XI 

06254 040420 TIN7RI 

06255 132000 

06256 020771 TSI7I 

06257 175820 



06260 034767 

06261 101112 

06262 124400 

06263 034656 

06264 167000 

06265 044654 



LDA 


0,PC172 


JSR 


TYP7E 


ISZ 


RTN7A 


STA 


0,FST7O 


ADC 


2,2 


LDA 


0.ZSU7P 


INCZR 


3,3 


STA 


J.ZSUTP 


MOVL» 


0,0, SZC 



NEG 



1,1 



LDA 3.PAC71 
ADO 3,1 
STA 1,PAC71 



("FST7D" IS NON -I 
(AC2 " -l 

(ACS IS 1 IF THE CHARACTER 
(TYPED MAS A * ANO A 100006 
(IF IT HAS A -. 

(SKIP IF THE PREVIOUS SIGN 
(MAS A PLUS 

(TAKE TNO'S COMPLEMENT IF 
(THE PREVIOUS SIGN MAS »-» 



(PACT1 HAS THE INTERMEDIATE 
(RESULT 



0069 FPYDI 

01 06266 126400 

02 06267 151113 
93 U6270 000433 
34 (16271 4104665 
US IS6272 023402 
86 66273 002643 
07 

HO [15274 K00000 FST7D1 
99 

10 06276 054641 T007TI 

11 06276 004652 

12 06277 102000 

13 06300 040774 

14 06301 101120 

15 06302 000411 

16 06303 034633 TIN70I 

17 06304 004644 
16 0630S 102120 
IS 06306 000404 

20 06307 094627 TlN?Ol 

21 0631m 004640 

22 06311 102440 

23 06312 126400 T1NTBI 

24 06313 030463 TINJZl 

25 06314 113000 
26 

27 06315 102440 

28 06316 040731 

28 06317 034730 T1N?S| 

30 06320 175014 

31 06321 000732 

32 06322 054617 

33 06323 063610 TIN?*! 

34 06324 000777 

35 06325 060610 

36 06326 004655 

37 06327 034446 
36 06330 163400 

38 06331 116415 

40 06332 000632 

41 06333 034715 

42 06334 116414 

43 06335 101015 

44 06336 000761 

45 06337 034442 

46 06340 116405 

47 06341 000712 
46 06342 175414 
49 06343 175235 
90 06344 000712 

51 06345 034432 TIN7MI 

52 06346 116415 

53 06347 000702 

54 06350 034426 

55 06351 116404 
96 06352 000403 

57 06353 020424 

56 06354 000676 

58 06355 034423 TIN?NI 
60 06356 117022 



sua 


111 


NOVL« 


2,2,5NC 


JMP 


TINT* 


JSR 


RST7R 


ID* 


0.FST7O 


JMP 


»RTN?A 



3TA 


3, RTN?* 


JSP. 


8AV7E 


AOC 


0,0 


STA 


0,rSTTO 


MUVZL 


010 


JMP 


TIN7Z 


5TA 


3.RTN7A 


JSP 


9AV7E 


ADCZL 


0>0 


JMP 


TIN7U 


STA 


3.RTN7A 


JSR 


SAV7E 


suao 


0,0 


sue 


t.l 


LUA 


2>PC172 


ADO 


0,2 


9UBO 


0,0 


STA 


0.ZSU7P 


LUA 


3.ZSU7P 


MOVR 


3, 3, SZR 


JMP 


TINTK 


ST* 


3,PACtl 


SKPON 


TTI 


JMP 


.-1 


DIAC 


0.TTI 


JSR 


TYP7E 


LOA 


3.P1777 


AND 


3,0 


SUB« 


0,3,9NN 


JMP 


RUB7 


LUA 


3.PC470 


SUB* 


0,3, SZR 


MOV* 


0,0, SNR 


JMP 


TIN7S 


LUA 


3.TIN72 


SUB 


0,3, SNR 


JMP 


TIN7X 


INC* 


3, 3, SZR 


MOVZR* 


3, 3, SNR 


JMP 


TSI? 


LDA 


3.PC175 


SUB* 


0,3,5NR 


JMP 


TIN7C 


LOA 


3.PC172 


SUB 


0,3, SZR 


JMP 


TIN7N 


LDA 


0.PC179 


JMP 


TIN?C*1 


LOA 


3.TIN71 


ADDZ 


0,3,SZC 



(SKIP IF fcXIT Ili REQUIRED 

(RESTORE THE HORLQ 

/RESTORE AC0 
(RETURN 



(SAVE THE RTN AClDR 
(SAVE THE NQRLD 
IAC1 • -1 (ENTRT FOR ODT) 
(LOOK FOR FIRST DIGIT 
MCI « -2 

(OCTAL ENTRY, SAVE RTN ADDR 

(SAVE THE WORLD 

(OCTAL ENTRY SWITCH 

I 

(DECIMAL ENTRT, RTN SAVED 

(SAVE THE WORLD 

IOECIMAL ENTRY SWITCH 



IAC2 IS 10 FOR OCTAL AND 12 
(FOR DECIMAL NUMBERS 

(SIGN AND LEADING SPACES FLAG 

(SKIP FOR LEADING SPACES 



(STRIP THE PARITY BIT 
(SKIP IF NOT A RUB-OUT 



(SPACE, OR NULL 

(COMMA 

(MINUS 

|UR PLUS 7 

(MODIFY THE SIGN 

(AC3 • 15 

(IS IT A CARRIAGE RETURN7 

(IF CR THEN GO TO TIN7C 

(AC3 • 12 

(SKIP FOR LINE F£EO 

(AC0 • 15 



(SKIP IF NOT A DIGIT 



0090 FPYUI 
01 06357 156513 

06360 000674 

06361 010666 

06362 142400 

06363 010711 



02 
03 



n5 

06 
37 
86 
09 



121120 
105120 
125120 
167000 

155220 
175232 

107000 
000730 



06374 000000 IN"?: 



06364 
06365 
06366 

10 06367 

11 06370 

12 06371 

13 06372 

14 06373. 
lb 
16 
17 
1* 
19 
20 
21 
22 
23 
24 
25 
26 
27 



06375 000177 

06376 000012 



06377 
06400 
06401 
06402 



000015 



P1777I 
PCI.72I 
PC:. 75 1 



177720 TIN71I 

000054 TIN72I 
000100 C1070I 



SliBL* 


2,3,SNC 


JMP 


T1N7R 


ISZ 


ZSU7P 


SUB 


0,0 


ISZ 


FST7D 


MOVZL 


1,0 


MOVZL 


0,1 


MOVZL 


1,1 


ADD 


3,1 


MOVZR 


2,3 


MOVZR* 


3,3,SZC 


ADO 


0,1 


JMP 


TINtX 



177 

12 

15 

-60 

94 

100 



(SKIP IF OIGIT 

(OUT OF LEADING SPACES 
(AC0 • 

(SKIP IF IT HAS FIRST OIGIT 
(FOR ODT 



(AC1 IS SHIFTIED BY 3 PLACES 
(6 OLD PACtl IS * NEW OIGIT 

(SKIP IF OCTAL HODE 
(ADD 2 OLD PAC71 'S 



(TYPE OUTSS CAN BE 
ITTY BY PLACING .1 



FORCED TO 
IN THIS IOC. 



iBtiyi fpyoi 
81 

82 

as 

84 
U5 
86 
87 
86 
89 
18 
11 
12 
13 
14 
16 
16 
17 
16 
10 
28 
21 
22 
23 
24 
25 
26 
27 
26 
29 
38 
31 
32 
33 
34 
36 
36 
37 
38 
3D 
48 
41 
42 
43 
44 
45 
46 
47 
46 
48 
58 
51 
52 
53 
54 
65 
56 
57 
56 
56 
68 



(FILENAME • SwPAK 



I, SWITCH SETTINGS 

LOCATION "SWREG" IS USED TO SELECT THE PROGRAM OPTIONS 
(NOT SYSTEM CONFIGURATION). WHILE RUNNING UNDER DTOS, 
THIS LOCATION WILL BE LOADED BY THE MONITOR, 
HOWEVER UNDER STAND ALONE AND PROGRAM LOAD MODES THIS 
LOCATION WILL BE SET ACCOROING TO THE ANSWERS SUPPLIED 
BY THE OPERATOR. IN ANY CASE THE OPTIONS CAN BE CHANGED 
OR VERIFIED BY USING ONE OF THE COMMANDS GIVEN IN SEC, 
1.2 



1.1 SWITCH OPTIONS 

DIFFERENT BITS AND THEIR INTERPRETATION AT LOCATION 
"SWREG" IS AS FOLLOWS! 

BIT OCTAL BINARY INERPRET ATION 
VALUE VALUE 

1 8 LOOP ON ERROR 

48888 1 SKIP LOOPING ON ERROR 

PRINT TO CONSOLE 

ABORT PRINT OUT TO CONSOLE 

PRINT OETAILEO ERROR ON THE 
SELECTED DEVICE/DEVICE! 
ONLY % FAILURE REQUIRED 

ALLOW END OF PASS PRINT OUT 
SUPPRESS END OF PASS PRINT OUT 

00 NOT PRINT ON THE LINE PRINTER 
PRINT ON THE LINE PRINTER 

DO NOT HALT ON ERROR 
HALT ON ERROR 

00 NOT PRINT PASSING OF 
EACH TEST ON PRINTING DEVICE 
88488 1 PRINT PASSING OF EACH TEST 

1.2 SWITCH COMMANDS 

ONCE THE PROGRAM STARTS EXECUTING THE STATE OF ANY OF 
THE BITS CAN BE CHANGED BY HITTING KEYS I THROUGH 8, THE 
PROGRAM WILL CONTINUE RUNNING AFTER UPDATING THE OPTIONS 
EACH KEY WILL COMPLEMENT THE STATE OF THE BIT AFFILIAT- 
ED WITH IT, THUS BIT 4 CAN BE ALTERED BY HITTING KEY 4. 
SETTIN OF ANY BIT OF LOCATION "SWREG" MILL SET BIT 8, 
(DEFAULT MODE IS DEFINED AS ALL BITS OF SWREB SET TO I) 
THE PROGRAM CAN BE LOCKEO INTO SWITCH MODIFICATION MODE 
BY TYPING A 8, IN WHICH CASE MORE THAN ONE BITS CAN BE 
CHANGED BEFORE THE CONTROL IS ALLOWED TO RETURN TO THE 
MAIN PROGRAM, 



2 


28888 


8 

1 


3 


18888 


8 

1 


4 


84888 


8 
1 


5 


82888 


8 

I 


6 


81888 


8 
1 


7 




8 



8882 FPYUI 
81 

aa 

83 
84 
83 
86 
87 
86 
89 
18 
11 
12 
13 
14 
15 
16 
17 
18 
18 
28 
21 



1.2.1 OTHER COMMANDS 

"CR" A "RETURN" CAN BE TYPED TO CONTINUE THE PROGRAM 
AFTER ITS LOCKEO IN A SWITCH MODIFICATION MODE 

«0 THIS COMMAND GIVEN AT ANY TIME NILL RESET "SWREG 
TO DEFAULT MODE AND RESTART THE PROGRAM, 

«R THIS COMMANO GIVEN AT ANY TIME WILL RESTART THE 
PROGRAM, SWITCHES ARE LEFT WITH THE VALUES THEY 
HAD BEFORE THE COMMAND WAS ISSUED, 

• THIS COMMAND GIVEN AT ANY TINE HILL CAUSE TME 
PROGRAM CONTROL TO GO TO ODT (SEE SEC, 8) 

»S PRINT THE SUMMARY OF ERRORS ACCUMULATED SO FAR, 

H THIS COMMANO GIVEN AT ANY TIME MILL PRINT THE 
CURRENT OPERATING MODES, 



10093 f 

01 
82 
03 
194 
«S 
at 
817 
0b 
09 

11? 
11 

12 
13 
14 

lb 
16 
17 

la 

IV 
20 
21 
22 

23 

24 
2S 
26 
27 
2B 
29 
30 
31 
32 
33 
34 
35 
36 
37 
36 
33 
40 
41 

42 86473 

43 86404 

44 06405 
45 

46 06406 

47 064f7 

4e »j64i«) 

49 H6411 
5b 86412 
SI 86413 
Si 06414 

53 06415 

54 0S4I6 

55 06417 

56 116420 
S7 

56 06421 
SB 06482 

50 06423 



PYUI 



(THIS PACKAGE IS uStD TO CHANGE THE SETTINGS OF LOCATION 

I'S-REG" UF PAGE a. THE PROGRAM CONTROL SHOULD ENTER "INP7I OR 

IINP7J" WITH AC3 HAVING THE RTN AODR. IF THE TTl INPUT IS 

ION INTERRUPT BASIS, ENTER AT "INPTI" OTHERWISE ENTER AT "INP7J" 

ITHE INPUT IS ECHOED AFTER A »CR". IF THE COMMAND IS 

(NOT A LEGAL ONE THEN THE CONTROL IS RETUNNEO WITHOUT DOING 

(any thing, otherwise one of the following commands is 

^executed; 

ikevs 1-9 and a-f are useo to cohplement the current value 

(OF BITS 1-15 OF "SNREG". IF ONE OF THESE KEYS IS HIT THE 

/CORRESPONDING BIT UF "SNREG" IS COMPLEMENTED AND THE CONTROL 

/IS RETURNED TO THE STATE PROGRAM HAD BEFORE HITTING THE KEY 

'I™."? ° f * "*" HlLl LUCK THE "OGHAM IN A SNITCH MODIFICATION 

/MODE IN WHICH CASE MORE THAN ONE BITS CAN BE CHANGED BEFORE 

ITHE CONTROL IS ALLOWED TO RETURN TO THE MAIN PROGRAM. HITTING 

iTHt "CN" KEY HILL UNLOCK THE PROGRAM FROM THIS MODE. 

I»»D" THIS COMMAND GIVEN AT ANY TIME HILL RESET THE "SWREG" 

ITO DEFAULT MODE CALL ZEROS) AND RESTART THE PROGRAM AT ADD. 

ISTOREO IN LOCATION "INST" 

l"»R» THIS COMMANNO GIVEN AT ANY TIME WILL RESTART THE PROG. 

|AT ADDRESS STORED IN LOCATION "INS?" 

I'M" THIS COMMAND GIVEN AT ANY TIME RILL PRINT THE CURRENT 

[OPERATING MOUES. 

IbEFORE THE CONTROL 13 RETURNED TO THE MAIN PROGRAM BIT HILL 

IBE SET IF ANY OF THE OTHER BITS OF "SNREG" IS SET, OTHERWISE 

IIT WILL BE CLEARED 

l"ODT" ROUTINE USES ONE LOCATION IN PAGE ID FOR BREAK POINT 

IADURESS UF THIS LOCATION SHOULD BE PLACED AT "ODOTF" 

I 

ITHE CALLING SEUUENCE ISI 

I 

I JSR 

I 

I 

I 

I 



•IINP? ,WHERE IINP? POINTS TO 
INP7I OR INPTJ 

ENTER AT INPTI FOR INTERRUPT 
DRIVEN PROGRAMS .OTHERWISE AT INP7J 



000033 

«a«136 

000104 

054574 
17612) 
854572 
854466 
884543 
848574 
868618 
834768 
163488 
834768 
116415 

888426 
048557 
824757 



IN373I 33 
IN1736I 136 

IN 1784 1 184 



INP7I! 
INP7JI 



STA 

AUCZl 

STA 

STA 

JSR 

STA 

DIAC 

LUA 

AND 

LD4 

SUB* 

JMP 

STA 
LP A 



3,InP?R 

3,3, SKP 

3,INP7R 

3,INTTE 

INS7V 

8,INL?K 

B,TTI 

3.P1777 

3,8 

3,PCt?5 

8,3,SNR 

INR? 

(I,INS7S 

i,eie70 



ISAVE THE RETURN ADDRESS 

ISAVE THE STATUS 

I"INL?K» IS NOT -l 

IREAD THE INPUT 

IAC3 ■ 177 

IGET RID OF THE PARITY BIT 

IACI • 15 

ISKIP IF THE CHARACTER TYPED 

IWAS NOT "CR" 

ISAVE THE CHARACTER 
|AC1 • IBB 





m 

an 

03 
84 
85 
86 
07 
08 
aii 
10 
11 

12 
13 
14 
15 
1C> 
17 
18 
19 
28 
21 
22 
23 
24 
25 
26 
27 
28 
29 

3r 
31 
32 
33 
34 
35 
36 
37 
3b 
39 
40 
41 
42 
43 
44 
45 
46 
47 
46 
49 
58 
51 
52 
33 
34 
55 
56 
37 
5b 



894 FPVUI 
8«424 83475? 
06425 116414 
86426 034755 
06427 162453 

86438 008451 
86431 107888 IN37! 

06432 02u752 

86433 006216 

06434 121000 

06435 006216 
86436 034562 
06437 162815 
0644£ 000405 

06441 034744 

06442 116484 

06443 000504 

06444 054205 
86445 834541 IN(i?l 

06446 054534 

06447 176400 IN*'?I 
86450 165000 

06451 006287 

06452 854722 

06453 838285 
86454 176220 

06455 173404 

06456 172000 

06457 850205 

06460 034523 

06461 175223 

06462 060211 
86463 175220 
06464 173284 



06465 125004 



06466 176800 

06467 054514 

0647fc 020506 
86471 024586 

06472 830506 

06473 034506 

06474 010507 

06475 068177 
86476 802584 



LDA 


3,PC1?2 


SUB* 


0,S,SZR 


LUA 


3,IN3?3 


SUBO* 


3,e,SNC 


JMP 


INI? 


ADD 


0,1 


LDA 


0.IM736 


JSR 


0ITYP7E 


MOV 


1,0 


JSR 


•ITYP7E 


LUA 


3,11271 


ADC* 


3,0,SNR 


JMP 


IN»? 


LDA 


3.1M704 


SUB 


0,3,SZR 


JMP 


IN4? 


STA 


3, SWREG 


LD* 


3, INS? 


STA 


S.INPTR 


SUB 


3,3 


MOV 


3,1 


JSR 


0IC*L?P 


STA 


J,Ii*T? 


LDA 


2,S»REG 


AUCZR 


3,3 


ANO 


3,2,SZR 


ADC 


3,2 


STA 


2, SWREG 


LDA 


S.STAtT 


MOVZR 


3,3,8nC 


N10C 


TTO 


MOVZR 


3,3 


MUVR 


3,3„5ZR 


MOV 


1,1, SZR 


AuC 


3,3 


STA 


3.STA7T 


LUA 


0,INSf0 


LDA 


1.INS71 


LDA 


2,INST2 


LDA 


3.INS73 


ISZ 


STATT 


INTEN 




JMP 


0INF7R 



ISKIP IF JT IS A LINE FEED 
IAC3 • 33 

IDON'T SKIP IF AC0 IS 33 
I OR MORE 

IACI • 100* ASCII VALUE OF 
ICONTROL CHARACTER 
IAC0 • 136 
ITYPE « 



IAC3 • 121 

ISKIP IF IT IS NOT «R 

IAC3 i> 104 
ISKIP IF IT NAS A »D 

ILOAO "SNREG" WITH 

IAC3 » ADDRESS OF THE LOCATION 

INHERE THE PROGRAM WILL START 



IAC3 » 77777 

ISKIP IF THE SWITCHES ARE SET 

ITO ALL ZERO'S 



ISKIP IF DONE BIT ON TTO IS TO 
IBE LEFT SET 



ILOAD THE CARRY BIT ANO SKIP 

I IF THE INTERRUPTS ARE NOT TO 

IBE ENABLED 

ISKIP IF THE INSTRUCTION BEING 

IEXECUTEO IS A "P» 

/INTERRUPTS ARE TO BE LEFT DIS- 

IABLEO 

l"STA?T» IS IF INTERUPTS ARIi 

ITO BE ENABLED ANO -1 OTHERWISE 

IRESTORE THE ACCUMULATORS 



/START EXECUTING THE USER'S 
/PROGRAM 



86477 004000 INT?EI 
U650B 806280 ITP57PI TPS7P 



10B95 FPVUI 






01 










02 


6)6501 


006216 INI?! 


JSB 


FITYP7E 


03 


06502 


034517 


IDA 


3,IN6T0 


04 


06503 


152620 


SuBZR 


8.2 


as 

07 
08 
0B 


06504 


1164*5 


SUB 


0,3, SNR 


06505 


070503 


JnP 


INS? 


06505 


151221 IN27I 


MOVZR 


2, 2, SKP 


ID 


06507 


126520 


SUBZL 


1,1 


11 


06510 


175405 


INC 


3,3, SNR 


12 


(16511 


000501 


JMP 


IN3?42 


11 


06512 


147415 


ANDH 


2,1,SnR 


14 










15 


06513 


070773 


JMP 


IN2? 


16 


06514 


106407 


SUB 


0.1 


17 










18 


06515 


133000 


MOV 


1,3 


IV 


0651b 


151225 


«OVZR 


2, 2. SNR 


20 


06517 


B00430 


JMP 


IN4? 


21 


0652k. 


024503 


IB* 


1.IN179 


22 


06521 


167004 


ADO 


3,1,SZR 


S3 


06522 


M00765 


JMP 


IN2?*1 


24 










29 


06523 


K06207 IN*?! 


JSR 


»ICRL?P 


26 


06524 


152520 


SUBZL 


2,2 


27 


06525 


006210 


JSR 


•IPDC7S 


29 


06526 


000040 


40 




29 


06527 


125400 


INC 


1,1 


3D 


06530 


034472 


LOA 


3.IN172 


31 


06531 


166452 


SUBO* 


3.1.S2C 


32 










33 


06532 


006746 


JSR 


HTPS7P 


34 


06533 


151124 


MUV2L 


2.2.SZR 


35 


06534 


000771 


JMP 


INM7*2 


3b 


06535 


006207 


JSR 


•ICRL7F 


37 


06536 


030205 


LD« 


2,SNRtG 


3b 


06537 


151140 


MOVQL 


2,2 


39 


06540 


126560 


SUBCL 


1,1 


40 


06541 


006210 


JSR 


•IPDC73 


41 


06542 


000040 


40 




42 


06543 


006735 


JSR 


PITPS7P 


43 

44 
45 


06544 


151124 


MOVZL 


2,2,SZR 


06545 


00107/3 


JMP 


.-5 


45 


06546 


006207 


JSR 


0ICKL7F 


47 

48 
49 


0654/ 


010440 IN47I 


ISZ 


INL7K 


06550 


000677 


JMP 


INR? 


5B 


06551 


014436 


OS! 


INL7K 


51 


06552 


063610 


SKPDN 


TTI 


52 


06553 


000777 


JMP 


.•1 


S3 


06554 


000640 


JMP 


IN0? 


54 










55 










56 


06555 


040421 INS7VI 


STA 


0,INS?0 


57 


06556 


044421 


STA 


1.IN971 


58 


06557 


050421 


STA 


2.INST2 


59 


06560 


102560 


SUBCL 


6,0 


SO 


(16561 


010716 


ISZ 


INT7E 



(ECHO THE CHARACTER 
(AC3 • 60 
IAC2 • 100000 

/skip if the dibit tvpeo has 
(not 



(SHIFT AC2 TO RIGHT 
(AC! ■ 1 



(STAY IN LOOP UNTIL ALL BITS 
(OF SHREG ARE CHECKED 



(WHEN THE CONTROL COMES HERE 
(FOR THE FIRST TIME AC1 ■ 100 



(AC1 • 15 

(SKIP IF THE COMMAND HAS "M» 



(TYPE A "CR" AND "LP" 

(SET AC2> 1 

(PRINT THE CONTENTS OF AC1 



(AC3 • 12 

(SKIP IF AC1 IS GREATER OR EQUAL 

(TO AC3 

(PRINT A SPACE 

(SKIP AFTER TYPING # 15 



(AC2 HAD SHITCH SETTINGS 
(BRING THE CARRY BIT IN AC1 
(TYPE THE CONTENTS OF ACl 

(TYPE A SPACE 

(SKIP AFTER TYPING ALL THE 16 

(BITS 



(SKIP IF THE PROGRAM IS LOCKED 
(IN SmITCH INPUT MODE 



(NEVER SKIP 

(MAIT FOR OPERATOR INPUT 



(SAVE THE ACC. 



(SAVE THE CARRY 

(SKIP IF DOT IS ENTERED THRU 



0096 FPYOI 








01 










02 06362 


063577 




SKPbZ 


CPU 


03 










04 06563 


101141 




MUVOL 


0,0, SKP 


05 06364 


101120 




MOVZL 


0,0 


06 06565 


060277 




INTUS 




07 06566 


063611 




SKPDN 


TTO 


06 06567 


101121 




MOVZL 


0,0, SKP 


0B 06570 


101140 




MOVOL 


0,0 


10 06371 


040412 




STA 


0.STA7T 


11 06372 


152000 




ADC 


2,2 


12 06373 


050601 




STA 


2,INT7 


13 










14 06574 


002207 




JMP 


•ICRL7P 


15 










16 06575 


005400 


INS7AI 


JSR 


0,3 


17 106676 


000000 


INS70I 







18 06377 


000000 


INS71I 







19 06600 


000000 


INS72I 







20 06601 


6)00000 


INS73I 







21 06602 


000000 


INP7RI 







22 06603 


000000 


STA7TI 







23 06604 


177777 


INB7AI 


-1 




24 06605 


000000 


1NB7II 







25 06606 


000571 


INS7I 


RES7T 




26 06607 


000000 


INL7KI 







27 










26 06610 


176000 


IN37I 


ADC 


3,3 


29 06611 


054776 




STA 


3,INLTK 


30 06612 


024205 




LDA 


1,SNREG 


31 










3k 06613 


133414 




AND* 


1,2, SIR 


33 06614 


146401 




SUB 


2,1, SKP 


34 06615 


147000 




ADD 


2,1 


35 06616 


044205 




STA 


l,S»REG 


36 06617 


000730 




JMP 


IN4? 


37 










36 










39 06620 


000121 


U271I 


121 




40 06621 


000060 


IN670I 


60 




41 06622 


000012 


IM72I 


12 




42 06623 


000015 


IN175! 


15 




43 










44 











(INTERRUPT HANOLEK 

(SKIP IF INTERRUPTS ARE NOT 

(ENABLEO 



(SAVE THE TTO STATUS 



(FORCE THE TYPE OUTS ON 
(THE TELETYPE 



(AC3 • -1 

(LOCK IN SNITCH INPUT HODE 

(READ THE CURRRENT VALUE OP 

("SHREG" 

(TAKE XOR OF ACi AND AC2 



(SAVE THE NEN VALUE OF "SHREG" 



IBP97 FPYOI 
01 

02 

34 
as 
»6 
*7 

ae 
»9 

IB 
1) 

13 
14 
15 
lt> 
17 
IB 
19 
2i) 
21 
22 
23 
24 
2b 
20 
27 

2e 

29 
3fJ 
31 
32 
33 

a 

3b 
36 
37 
36 
39 
4B 
41 
42 
43 
44 

4b 
4b 
47 
46 
49 
S<! 
51 
52 
b3 
54 
55 
56 
57 
56 
59 
68 



(FILENAME « ODTPK 



2.3 



2.3.1 



OCTAL DEBUG TOOL COOT) 

THE DIAGNOSTIC IS EOUIPED "ITU A 6ULT IN ODT WHICH CAN 
at ACCESSED BY HITTINO CONTROL C«0) AT ANY TIME DURING 
THE EXECUTION OF THE PROGRAM (AFTER SETTING THE PARA- 
METERS), 

ON ENTERING OOT THE ADDRESS OF THE LOCATION HAVING THE 
NEXT INSTRUCTION TO Bt EXECUTED KILL BE TYPEO-OUT. 

CONVENTIONS AND SYMBOLS 

THE FOLLOWING CONVENTIONS AHE USED BY THE ODT: 
7 PRESSING ANY ILLEGAL KEY CAUSES THE OOT TO RES- 
POND KITH A "?«. 
» ODT IS READY AND AT YOUH 5ENVICE. 

COMMAND SIRUCTURE 

AN OOT COMMAND THE FOLLOWING FORMAT: 
[ARGUMENT] [COMMAND] 

AN ARGOMENT MAY BE ONt OF THE FULLOWINGI 

EXP AN OCTAL EXPRESSION CONSISTING OF OCTAL NUMBERS 
SEPARATED BY PLUS ( + ) OR MINUS (-) SIGNS. LEAD- 
ING ZEROS NEED NOT BE TYPED. 

ADR AN ADORESS IS THE SAME AS AN EXPRESSION EXCEPT 
THAT BIT t IS NEGLECTED. 

A COMMAND IS A SINGLE TELETYPE CHARACTER 

ODT COMMAND!. 

ThE LOCATIONS THAT CAN BE EXAMINED AND MODIFIED BY THE 
USER ARE CALLED CELLS. THESE CELLS ARE OF TWO TYPE: 
INTERNAL CPU CELLS ANO MEMORY LOCATIONS, 

OPENING INTERNAL CELLS 

THE COMMAND TO OPEN ONE OF THE INTERNAL REGISTERS IS OF 

THE FORM "NA" WHERE N IS ANY DCATL EXPRESSION BETWEEN 

f) AND 7 

fl-3 FOR ACCUMULATORS 2-3 

4 FOR PC OF THE NEXT INSTRUCTION TO BE EXECUTED IN 
THE EVENT OF A "P» COMMAND, 

5 CPU AND TTO STATAS 
BIT INTERPRETATION 

15 STATUS OF TTO DONE FLAG 

14 STATUS OF INTERRUPTS 

13 STATUS OF CARRY BIT 
5 ADDRESS OF THE LOCATION HAVING BREAK POINT (IF 

ANY) 
7 INSTRUCTION AT THE BREAK POINT LOCATION 

OTHER COMMANDS TO OPEN CELLS ARE! 

ADR/ OPEN THE CELL AND PRINT ITS CONTENTS 

./ OPEN THE CELL CURRENTLY POINTED BY THE POINTER 

ANO PRINT ITS CONTENTS, 
.♦ADR/ ADD ADR TO THE POINTER, OPEN THE CELL ANO PRINT 

ITS CONTENTS. 



?H98 FPYOI 
HI 

*2 
B3 

04 

as 
as 

37 
l»8 
09 

ie 
n 

12 
13 
14 
15 
16 
17 
16 
19 
2t) 
21 
22 
23 
24 
25 
2b 
27 
26 
29 
36) 
31 
32 
33 
34 
3b 
3b 
37 
36 
39 
4k) 
41 
42 
43 
44 
4b 

4b 
47 
48 
49 
5B 
51 
52 
53 
54 
35 
5b 
57 



2.3.2 



2,3,3 



,-AQR/ 

»CR" 



-AOR/ 



SUBTRACT ADR FRO 
PRIilT ITS CONTEN 
THE RETURN KEY I 
WITH OR WITHOUT 
LINE FEED IS USE 
WITHOUT MODIFICA 
CELL. 
CLOSE THE OPEN C 
OPEN THE CELL PO 
CLOSE THE OPEN C 
OPEN THE CELL PO 
CLOSE THE OPEN C 
OPEN THE CELL PO 



THE POINTER, OPEN THE CELL AND 
TS. 

S USED TO CLOSE THE OPEN CELL 
MODIFICATION, 

D TO CLOSE THE OPEN CELL WITH OR 
TION AND TO OPEN THE SUCCEEDING 

ELL WITHOUT MODIFICATION, AND 
INTED BY ITS CONTENTS, 
ELL WITHOUT MODIFICATION, AND 
INTED BY ITS CONTENTS * AOR, 
ELL WITHOUT MODIFICATION, AND 
INTEO BY ITS CONTENTS . ADR, 



MODIFICATION OF A CELL 
ONCE A CELL HAS BEEN OPENED ITS CONTEN 
8Y TYPING THE NEW VALUE THE CELL IS TC 
FORM UF AN OCTAL EXPRESSION FOLLOWED B 
IF A ♦ OR - 18 TYPED AS THE FIRST CHAR 
PKESSION THEN THE VALUE OF THE EXPRESS 
SUBTRACTED FROM THE OLD CONTENTS OF TH 
ADDRESS ITSELF OR AN EXPREESION RtLATI 
CAN BE DEPOSITED BY TYPING A "," OR • , 
ION". A RUBUUT COMMAND GIVEN RIGHT AFT 
ALLOWS VHE MODIFICATION OF ITS CONTENT 
TYPED IN JUST BEFORE THE COMMAND WAS I 



TS CAN BE MODIFIED 

CONTAIN IN THE 
Y »CR" OR "LF", 
ACTER OF THE EX- 
ION IS ADDED TO OR 
E CELL, 

VE TO THE ADDRESS 
♦/-OCTAL EXPRE8S- 
ER OPENING A CELL 
S AS IF THEY WE«E 
SSUED, 



OTHER OUT COMMANDS 
ROBOUT THIS KEY IS 
DIGITS. EACH 
DIGIT IS DEL 
THE RUBOUT K 
CELL THEN IT 
AS IF ITS CO 
KEY WAS PRES 
ADRB INSERT A BRE 
ONL" ONE BRE 
ENTRY TO DDT 
CAUSE IT TO 
DELETE THE 6 
P RESTART THE 
POINTED BY 4 
START EXECUT 
ID-RESET 
KILL THE STR 
WITH A «?» A 
MODIFICATION 



THE CALLING SEUUENCE IS: 



ADRR 



USED TO DELETE ERRDNEOUSL 
TIME THE KEY IS PRESSED 

ETEO AND ECHOED ON THE TE 

EY IS PRESSED RIGHT AFTER 
ALLOWS THE MODIFICATION 

NTENTS WERE TYPED IN JUST 

SED. 

AK POINT AT LOCATION "ADR 

AK POINT CAN BE INSERTED 
AFTER EXECUTING A BREAK 

BE DELETED, 

REAK POINT IF ANY, 

EXECUTION OF THE PROGRAH 

A. 

ING THE PROGRAM AT »AUR» 



Y TYPED 
RIGHT MOST 
RMINAL. IF 

OPENING A 
OF THE CELL 

BEFORE THE 



AND ANY 
POINT WILL 



AT LOCATION 
AFTER AN 



ING TYPED 90 FAR, THE OOT RESPONDS 
ND THE OPEN CELL IS CLOSED WITHOUT 



JSR »IOl>T?, WHERE IODT? POINTS TO ODTtI OR 

00T1IJ 

ENTt:R AT 0DT7I IF RUNNING ON 
INTERRUPT BASIS, OTHERWISE 
ENTER AT O0T?J 



10099 FPVDI 








01 












02 






(FILENAME' ODTPAK 


a a 












04 


06624 


006210 


0DA7CI 


JSR 


PIP0C7S 


as 












a e 


06625 


000101 


N1B71I 


101 




B7 


06626 


006662 


0DA7I 


JSR 


#ITPS7P 


06 


81662/ 


004746 




JSR 


INS7A 


SI9 












If) 


06630 


171000 




MOV 


3,2 


ll 


06631 


133000 




»oo 


1.2 


12 


06632 


034536 




LU» 


3,0D77 


13 


06633 


136453 




suno» 


1,3, SNC 


14 


06634 


000473 




JMP 


0OA7L 


IS 












16 


06635 


116005 


0DP7CI 


*DC 


0,3,SNR 


117 


06b36 


,500612 


00R7TI 


JMP 


INR7»1 


IB 


06637 


034762 




LL» 


3,OD6?0 


IS 


0664* 


116005 




»0C 


0,3,3NR 


20 


06641 


000454 




JMP 


O0L7C 


31 


06642 


143000 




MOV 


2,1 


22 


06643 


175225 




MOVZR 


3,3,3NR 


a 3 


06644 


OP0434 




JMP 


0D*7T*4 


3 4 


0664D 


H06107 




JSR 


»INt373 


as 


06646 


O06774 




TP77 




26 


06647 


,300425 




JMP 


00H7T 


2 7 












a 8 


B665o 


054731 


00T7I 1 


ST* 


3,INS73 


a» 












.IK 












51 


066S1 


O34A00 




LD* 


3,0 


3 2 


06662 


400402 




JMP 


.♦2 


3 3 


066S3 


054726 


0DT7JI 


SI* 


3.INS73 


34 












35 


06654 


*54726 




ST* 


3.INP7R 


36 


06o55 


004703 




JiR 


INS7V»3 


37 


06666 


152400 




SUM 


2,2 


36 


06657 


024723 




LD* 


1,INP7R 


JB 


0666*1 


444722 


0UT71I 


ST* 


1,INP7R 


40 


06661 


«<0b212 




JSR 


PIZ0C7T 


41 


06662 


151404 




in: 


2,2.SZR 


42 












4 3 


06663 


000410 




JMP 


0UW7T-1 


44 
4 5 
46 


06664 


K20721 


0DD7B: 


104 


0,INB7I 


06b6S 


034717 




L0» 


3, INB7* 


47 


06666 


126001 




»UC 


1,1, SKP 


46 


06667 


055000 


0DB7P1 


ST» 


3,0,2 


49 


06671! 


175414 




INC* 


3,3,SZR 


50 












51 


06671 


042713 




ST» 


B,#INB7* 


52 


06672 


044712 




ST* 


1.INB7* 


53 


06670 


060210 




NIOC 


TTI 


54 


06674 


006207 


00M7TI 


JSR 


♦ICRL7F 


55 


06676 


054474 




ST* 


3,00LTT 


56 












57 


06676 


006107 




JSR 


PIMES7S 


56 


06677 


006773 




0DT7P 




59 


06700 


006472 




JSR 


FIT007T 


ee 













(TYPE THE ACCUMULATOR NUMBER TO 
IBE OPENED 

HYPE A SPACE 

ROAD AC3 WITH THE ADDRESS OF 

(INS70 



(AC3 « 7 

(SKIP IF ACC, NUMBER IS NUT OK 



IIP IT IS A "P" THEN PROCEED 

(AC3 • 60 

(SKIP IF AC0 IS NOT »/" 



(SKIP IF IT IS NOT A »," 

(TYPE A "7" 



(NORMALLY THE PROGRAM SHOULD 
(ENTER ODT AT THIS LOCATION 
(THROUGH AN INTERRUPT HANDLER 
(AC3 • RETURN ADORESS 

(ODT SHOULD BE ENTEREO AT THIS 
(POINT THRU A JSR 
("INP7R" HAS THE RETURN AOD, 
(SAVE THE STATUS 



(TYPE THE HALT LOCATIONS 
(SKIP IF THE BREAK POINT HAS 
(TO BE DELETED 

(LOAD AC0 IN CASE THE BREAK 
(POINT IS TO BE REMOVED 



(SKIP IF THERE IS NO BREAK 
(POINT 

(ENABLE BREAK POINTS 

(CLEAR THE TTY INPUT OONE SIGNAL 

(HAKE THE TAG FOR OPEN LOCATION 
(VON -1 (NO LOCATION IS OPEN) 



(ACCEPT OCTAL NUMBERS SEPERATEO 
(BY ♦ OR • SISNS 



0100 FPYDI 






01 


06701 


060077 


NIO 


CPU 


02 


06702 


034720 


LDA 


3,0D172 


03 


06703 


1164J4 


SUB* 


0,3,SZR 


014 


06704 


034717 


LOA 


3,00173 


06 


06706 


116414 


SUB* 


0,3,3ZR 


06 


06706 


000426 


JMP 


00D7R 


07 


06707 


010462 


ISZ 


O0L7T 


06 


06710 


000402 


JMP 


.♦2 


09 


06711 


046000 


ST* 


1,0,2 


10 


06712 


101233 


MOVZR" 


0,0, SNC 


11 


06713 


000761 


JMP 


0DN7T 


12 


06714 


14540P 


INC 


2,1 


13 










14 


06715. 


152220 0UL7CI 


*OCZR 


2,2 


15 


06716 


147400 


»ND 


2,1 


16 


06717 


020450 


LD* 


0,OD77 


17 

16 
19 


06720 


004655 


JSR 


IN3TA 


06721 


166422 


SuBZ 


3,1,SZC 


20 










21 


06722 


122433 


SUBZ» 


1,0, SNC 


22 


06723 


167001 


ADD 


3.1.SKP 


23 


06724 


000700 


JMP 


0DA7C 


24 


06726 


006212 


JSR 


PIZ0C7T 


2b 


06726 


131000 


MOV 


1,2 


26 


06727 


126000 00A7LI 


ADC 


1,1 


27 


06730 


044441 


ST* 


1,0DL7T 


26 


06731 


023000 


LD* 


1,0,2 


29 


06732 


006211 


JSR 


UPOCTT 


30 
31 

32 


06733 


000745 


JMP 


0DH7T*4 


06734 


034671 00D7RI 


LD* 


3.N1071 


33 


06735 


116405 


SUB 


0,3,SNR 


34 


06736 


000670 


JMP 


0DA7 


36 










36 


06737 


175655 


INCUR* 


3,3,SNR 


37 


0674B 


034644 


LD* 


3.INB7A 


38 


06741 


175643 


INCOR 


3,3,SNR 


39 

40 


06742 


125112 


MOVL* 


1,1, SZC 


41 

42 


06743 


000414 


JMP 


0007C 


43 


06744 


044640 


ST* 


1.INB7A 


44 


06745 


036637 


LDA 


3,»INB7A 


45 


06746 


054637 


ST* 


3.INB7I 


46 
47 


06747 


030421 


LD* 


2.0007F 


48 
49 


06750 


020423 


LD* 


0,ODI7N 


50 


06751 


143000 


ADD 


2,0 


51 


06752 


004715 


JSR 


0DB7P 


52 


06753 


034626 0DB7EI 


STA 


3.INST3 


53 


08754 


004601 


JSR 


INS7V 


34 


06753 


024627 


LOA 


l,INB7A 


56 


06756 


000702 


JMP 


0DTT1 


56 










57 


06757 


173663 0D07C: 


INCCR 


3,3,SNR 


3b 










59 


06760 


000704 


JMP 


0D07B 


60 


06761 


034637 


LOA 


3,11271 



(NO-OP 

(CHECK FOR A LINE FEED OR RETURN 



(DECODE REST OF THE COMMANDS 
(SKIP IF A LOCATION IS OPEN 

(RESTORE THE OPEN LOCATION 
(SKIP IF IT MAS NOT A »CR" 

(IF IT IS A LINE FEED THEN ADD 

(1 TO AC2 

(AC2 • 77777 

(NEGLECT A0DRE9S BIT 

(AC0 • 7 

(LOAD AC3 KITH THE ADDRESS 

(OF INS70 

(SKIP IF THE ADORESS IN AC1 IS 

(LESS THAN THE ADDRESS OF INS70 

(SKIP IF AC1 IS 7 OR LESS 

(OTHERWISE IT MUST BE AN ACC. 
(TYPE AC1 



(OPEN A LOCATION 

(TYPE THE OPEN LOCATION 



l»C3«101 

(IF AN "A" HAS BEEN TYPED 

(THEN GO TO SERVICE ACCUMULATOR 

(ROUTINE 

(SKIP IF IT DAS NOT A "B" 

(MAKE SURE THAT THIS IS THE 

(FIRST BREAK POINT 

(SKIP IF BIT OF THE AODRESS 

(KHERE THE BREAK POINT HILL 

(BE PLACEO IS B 

(DECODE OTHER COMMANDS 

(SAVE THE BREAK POINT ADO, 

(SAVE THE BREAK POINT INS7 
(BRING THE ADORESS DF LOC, 
(IN PAGE TO BE USED BY THE 
(BREAK POINT INSTRUCTION 

(AC1 • BREAK POINT INST, 

(THIS IS THE BREAK POINT ENTTRY 
(SAVE EVERY THING 



(SKIP IF THE COMMAND IS NOT 
("D" TO DELETE BREAK POINT 

IAC3-121 



0101 FPYOI 








01 067(2 


162(114 




ADC* 


3.B.SZR 


32 










(13 06763 


000652 




JMP 


0UP7C 


34 06764 


062677 




IURST 




36 06785 


044615 




Sl» 


1.INP7R 


HE 36766 


000650 




JMP 


00R7T 


37 










36 


0P6622 


0D1?2. 


IM?2 




ny 


006623 


0U17S« 


IN175 


- 


le 


026621 


OO670" 


IN670 




11 06767 


000007 


0U77I 


7 




12 06/7» 


000377 


0007FI 


377 




13 










14 06771 


000000 


DDL7TI 


a 




IS 06772 


036275 


ITODTTI 


T007T 




16 H6773 


002000 


0UI7NI 


JMP 


*l 


17 06774 


000077 


TP77: 


77 




16 06775 


000100 


0UT7PI 


"» 





(IF IT HAS A "R" THEN START THE 
/USERS PROGRAM 

HONST 



MDORfcSS IN PACE TO BE. USED 

rar the break point 



|01b2 FPyuI 

11 B6776 000400 BUF: 

02 07376 t'00000 BUFNDI 

33 07377 000400 RBLF I 

34 07777 KPH000 RBUFDI 
36 I 

36 
37 
Its 10000 1047503 



,BLK 296, (WRITE BUFFER 

/BUFFER END 

,BLK 296, (READ BUFFER 

IREAO BUFFER END 

THIS PROGRAM IS TO BE RUN STANDALONE HODE ONLY 



a Si 
10 
11 
12 
13 
14 
16 
16 
17 
16 



094920 
044522 

044107 
020124 
041450 
020351 
U43504 
026103 
030440 
033471 



.TXT 



/COPYRIGHT (C) OGCi 1076 



19 10013 040466 ALL RIGHTS RESERVED,/ 

20 046114 

21 051040 

22 043911 

23 052110 

24 020123 

25 042922 

26 042523 
?7 053122 
26 042105 
29 0P0P56 
30 

31 10026 050306 DIK r I 

32 

33 

34 

35 

36 



120131 
144504 
043501 
030240 
000069 
37 10034 003000 
36 1003S 030200 

39 10036 0P2P02 

40 10037 070707 

41 10040 070707 

42 10041 070707 

43 10042 070707 

44 10043 000000 
45 



.TXTE /FPY OIAG 00/ 



3 

200 

002002 

70707 

70707 

70707 

70707 



.ENli 



♦•00000 TUTAL EKHURK, 00000 PASS I ERRORS 



eie; 


1 KPYD1 
















AC0? 


0«Sbl7 


79/29 


79/45 


80/31 


81/13 


81/25 


at/41, 




AC17 


005620 


79/30 


79/46 


80/32 


81/14 


81/27 


81/42 




AC2? 


OBlbJl 


79/31 


79/47 


80/33 


81/15 


81/29 


81/43 


81/60 


AC3? 


H00204 


9/07 


56/09 


58/07 


62/25 


77/29 


81/31, 




AGAIN 


I"BZ77 J 


51/39 


51/50 












ALONi 


piaei isi 


7/44 














ASK 


C02237 


42/13 


42/17 












HACK 


fnPD66 


6/23 
62/33 


60/46 
62/34 


60/48 


60/51 


60/53 


62/24 


62/29 


SA0D1 


001331 


25/37 


25/47 


25/54 










BADU2 


(mil* 


25/30 


25/36 












8ADUI 


U04534 


25/33 


69/60 












BADDK 


004335 


25/49 


67/53 












BfcGN 


000571 


9/34 


11/54 


11/59 


12/06 








HEGN1 


000602 


9/60 


12/16 












Bt-PAT 


HB2066 


9/40 


49/06 












BFPED 


0U2741 


9/39 


49/49 












B1T0 


019 0157 


7/50 
51/19 


11/52 
60/3/ 


13/24 


32/17 


42/41 


45/11 


47/29 


BITl 


0001 fib 


7/51 
53/15 


15/40 
53/33 


15/47 
55/22 


51/44 
56/39 


52/10 


52/21 


52/93 


8ITI0 


PBP171 


7/60 


23/32 


61/48 










BITl 1 


00172 


8/01 


27/40 


32/10 


61/41 








BIT12 


0.50173 


8/02 


20/19 


20/51 


32/11 


32/46 


46/60 


61/34 


81T13 


000174 


8/03 


17/39 


46/59 


61/27 








aiTin 


000175 


8/04 


17/30 


27/25 


61/20 








9IT15 


0U017I1 


8/05 


19/43 


20/52 


27/54 


32/13 


41/21 


52/42 


BIT2 


PK? 101 


7/52 
77/40 


17/27 


17/53 


18/02 


32/32 


34/19 


77/35 


BITi 


00016* 


7/53 














BIT4 


0U016J 


7/54 


41/36 


S5/33 










BITS 


0M0164 


7/55 














91T6 


easfiss 


7/56 


56/45 


61/55 










B1T7 


01)0166 


7/57 


13/13 


45/59 


46/19 


54/18 






BIT6 


000167 


7/58 














BITS 


000170 


7/59 


38/10 












BLANK 


000152 


7/45 


19/27 


29/29 










SUF 


006776 


7/30 


8/06 


102/01 










8UFED 


000134 


7/31 


25/24 


25/44 


48/10 


58/33 


59/07 




BUFND 


007376 


7/31 


102/02 












SUFPT 


000020 


6/10 


42/21 


42/22 


42/29 


42/52 


42/93 


42/96 






48/57 


43/01 


43/02 


44/20 


44/31 


44/44 


44/96 






45/02 


47/57 


48/02 


48/04 


48/08 


58/32 


58/34 






58/35 


59/04 


59/08 


59/46 


59/47 


99/93 




C1070 


006402 


90/23 


93/60 












C15 


000236 


9/3J 


43/14 


43/20 










Cl7 


000123 


7/22 


60/13 












C1776 


000156 


7/49 


51/1/ 












C1777 


00015b 


7/48 


19/39 


53/54 










C1B76 


005627 


80/39 


61/37 


81/56 










C23 


000122 


7/21 


32/47 


60/10 










C42 


000124 


7/23 


53/30 












C77 


000147 


7/42 


34/46 


36/51 


52/05 


59/33 






C90 


0U015H 


7/43 














CAC70 


0106014 


84/07 


84/09 


84/27 










CAR? 


BB5622 


79/33 


79/43 


80/34 


81/17 


81/23 


81/39 




CBUFP 


000021 


6/11 


38/13 


38/29 


42/31 


42/32 


44/17 


44/32 






44/37 


44/57 


44/98 


44/60 


49/01 


49/03 


48/01 






48/03 


48/09 


69/06 


59/09 


59/12 


59/54 


59/55 
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Ct 


000233 


CF 


000231 


ChA73 


0U6027 


CHC7T 


0t)6oia 


CHE7X 


006035 


CHR7E 


006013 



CHR7Z 006143 



CJ 



000303 



CKWUC 000270 

CN7 000121 

CNFSC 004167 

CUENT 000235 

COMBG 002314 
COME* 002343 
CUMHE 000260 

CGMST 002227 
COMTB 002333 
COXY 002344 
COWRT 0103211 
CUNKK 003205 
COMSt 003256 
CPBUF 003420 



CPEKR 


003467 


CPET 


003412 


CRL7F 


006042 


ChEI 


001051 


CWE2 


001102 


Cl)E3 


001151 


C»E4 


001147 


CHE5 


001114 


CHE6 


001110 


C"E7 


001133 


CHEB 


001141 


CwESJ 


000305 


CHPR 


004111 


CYC72 


005547 


CYC7E 


005506 


DCH1 


001541 


0CH2 


001561 


DCH3 


001565 


DLM4 


001602 


DCH5 


001574 


DCH6 


001577 



OCLAT 000267 

0C07T 006106 

OORER 004566 

0EC7T 006107 

DtT7B 006146 

OIBNS 004720 

DIFF 000137 



DIRT 
OIV? 



010026 
005557 



DIV70 00556^ 
DIV7D 005563 



59/56 

9/30 

9/28 

84/17 

83/46 

84/19 

84/06 

84/21 

10/10 

9/59 

7/20 

20/32 

9/32 

99/18 

42/54 

9/48 

9/51 

76/52 

9/45 

6/43 

6/44 

54/22 

54/18 

55/20 

58/54 

59/11 

10/02 

9/10 

19/36 

10/03 

20/10 

20/48 

20/23 

20/06 

10/04 

19/42 

19/51 

10/12 

56/49 

79/28 

9/15 

32/23 

32/31 

32/34 

32/20 

32/51 

32/54 

9/58 

85/56 

13/56 

85/57 

85/48 

20/06 

7/34 

6/07 

79/57 

79/58 

79/4B 



60/16 
60/19 
64/20 
83/49 
84/27 
84/13 
84/26 
60/22 
61/39 
53/13 
54/27 
12/15 

43/03 
43/42 
43/42 
77/19 
42/09 
43/29 
9/43 

55/38 
95/29 
99/01 
99/41 
58/95 
84/44 
20/29 
20/01 
20/21 

20/44 
20/11 
20/04 
20/28 
20/36 
20/12 
69/25 
79/48 
79/15 
32/25 
32/41 
32/46 
32/40 
32/93 
32/96 
61/32 
66/16 
70/26 

86/31 

71/56 

51/12 

102/31 



84/24 
84/09 



84/28 
86/28 



77/13 



66/11 
19/25 



43/06 



ag/07 



88/02 88/05 



19/33 41/10 58/27 58/96 



43/46 44/40 44/49 44/50 44/51 
42/16 42/26 42/39 
9/44 43/43 



20/27 20/39 20/41 20/46 21/47 



20/07 20/37 



32/36 



32/49 32/92 32/59 32/99 



77/09 



31/24 51/39 91/49 91/53 
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OKHES 004455 13/17 69/13 

OUBIB 004474 20/39 66/28 

DOBNG 004303 67/27 

OOO* 003546 6/42 60/46 

0DPA1 002661 48/06 48/09 

00PA2 002652 48/02 48/12 

DUPAT 002643 9/41 47/55 

OOKIT 0«>3ie6 6/35 83/12 58/26 

OKI 003537 6/32 60/38 

Okll 000272 10/01 11/09 11/20 11/29 12/09 41/12 41/32 

47/09 47/28 

ORMES 004466 13/21 69/22 

UU2 001766 36/11 36/14 3S/33 39/86 

DU3 0191746 36/36 36/40 

DU4 001750 36/42 

005 001727 36/28 36/3S 36/46 36/83 

DUSEC 001731 36/1/ 36/27 36/42 36/43 36/46 

DUTKK 001/30 36/16 36/26 36/49 36/80 36/53 

ttSS 0OP1 B6a 6/13 6/17 

ENCMS 003775 42/10 64/09 
ENDTS 000125 «C 6/03 

EN0F1 002174 41/14 41/18 

EM0F2 0612216 41/35 41/37 

EhOFP B05«!51 41/42 73/25 

ENOFS 002161 41/07 41/28 

ENOFT B02210 41/23 41/30 

ENT?R 00546b 9/14 76/49 

ERBTC 0U0264 9/S5 61/18 77/01 

EKMES 003663 6/29 62/24 

ERRL1 003372 61/18 61/20 62/12 

EKRC2 003601 61/22 61/27 

ERRC3 0io3Bln 61/29 61/34 

EHRL4 003617 61/36 61/41 

ERRC5 003626 61/43 61/48 

6KRC6 003635 61/30 61/85 

EHRC7 003646 61/57 61/60 62/03 

ERRC8 003650 61/10 62/06 

ERRCK 003555 6/39 61/07 

ERKNC 0«l356b 61/12 61/16 

ERRNU 000002 6/03 

ERROR 000157 MC 6/03 12/18 13/06 19/06 23/06 27/96 

ERR? 005630 6/15 6/37 9/16 81/08 

ERR?1 005704 81/45 81/52 

EKR?2 005670 81/46 81/36 

ERR?3 0057U 81/20 81/37 

EKTS1 00025/ 9/30 12/08 14/02 16/01 18/12 21/01 23/33 

24/09 28/38 28/03 29/45 30/32 33/84 34/55 

36/60 39/56 41/09 46/24 46/29 46/41 56/28 

58/06 59/43 62/03 62/26 

Ell 00P667 14/07 

ETlu 001473 29/48 

ET11 001512 31/05 

ET12 001611 33/08 

ETI3 001700 34/59 

ET14 001774 37/04 

E115 002154 39/60 

ET2 000734 16/07 

ET3 001025 IB/16 



0106 FPYDI 



ET4 001170 
ETS 001262 
ET6 001337 
ET7 001416 
ETE8T 000120 MC 
FCSH 002404 
FCSH1 002416 
FCSH2 002410 
FCSS 002420 
FtSSl 002442 
FIX 002232 
FLAGS 000116 



FLAT 003i>70 
FLAT1 003271 
FLONG 004366 
FNTBE 002477 
FOUL 002350 
FHY 000000 



FPYND 004612 
FPYNR 003651 
FPYRC 000115 
FPYRD 004267 
FS.T7D 006274 
FUEX 002444 
FUNS 003553 
FUNT8 002454 
FuN*D 000117 
GUODF 00232b 
UU05- 002325 
HUHMC 003676 
HUMMS 004627 
HDU20 004U37 
HGL01 00100/ 
HDLU2 0X1017 
HDL03 000771 
HULU4 000754 
H0LU5 000762 
H0LD6 000746 
HDLDF 004145 
HO«LO 004134 
HEA?D 005720 
HtDUF 005063 
HELP 000202 
HERE 003427 
HEStl 001643 
HESE2 001630 
HtSt3 001672 
HESE4 001626 



22/05 
24/13 
26/02 
28/07 

6/03 

44/22 44/24 44/29 44/40 44/84 

44/43 44/40 44/30 

44/44 44/48 

44/34 44/33 

45/10 45/12 

42/24 42/2!) 

7/02 11/8.) 12/12 13/23 32/16 36/21 36/34 

36/38 36/41 (1/16 41/25 41/36 42/39 42/42 

43/12 47/li! 47/2S 47/30 82/41 32/46 52/56 

53/16 3S/2;i 53/25 56/38 36/42 60/36 

56/14 56/11) 

56/16 36/1!' 56/10 56/24 

11/56 68/111 
45/52 

9/29 44/08 44/23 44/27 44/30 44/35 48/06 

6/04 13/34 13/47 15/39 17/26 17/46 17/52 

16/01 19/38 119/47 19/49 19/55 20/02 20/14 

23/22 23/2/' 23/31 28/28 28/43 27/32 27/36 

27/39 29/1!) 29/24 32/25 32/29 34/18 30/19 

38/21 38/26 43/36 43/38 49/41 49/43 45/49 

51/18 81/4(1 51/43 82/09 32/17 32/20 82/37 

53/53 54/09 54/12 54/15 36/18 86/19 56/44 

57/01 77/2(1 77/32 

56/26 70/4ft 

61/14 62/07 

6/46 13/4J 62/10 76/37 

13/40 32/4S! 62/08 67/13 76/36 77/94 

87/23 88/46 89/05 89/08 89/13 90/05 

9/36 45/20 48/27 

60/50 60/5S: 

9/37 45/3!> 

7/18 53/46 S4/10 54/19 54/21 53/32 55/37 

9/46 43/1! 

9/47 43/11 

15/51 52/27 (13/06 

15/55 70/5S 

32/38 64/43 

17/49 17/60 

17/37 17/55 17/59 IB/08 

17/45 18/04 

17/29 17/31 

17/30 17/38 

17/23 17/32 

17/36 34/23 eS/53 

55/44 77/50 

81/22 82/04 

51/30 73/33 

9/05 78/51 

59/08 59/14 

34/21 34/28 

J4/17 34/23 

34/27 34/36 44/51 

34/12 34/15 34/41 34/48 



01B7 FPYDI 



HHM1 0tS072.J 
HLSUC HMB6.J 
HLSTS BB5273 
HHUH BB5171 
HNLDS PB5107 
HSEC 801643 
HTRK BB1644 
11271 BM662B 
IbEGN B*>0237 
IBFP* PBB24S 
IBFPE 888244 
1BGN1 BBB271 
IBUF 4BB177 



ICOM1 B8025B 
IC0M2 PdB231 
[COME <"WB25S 
ICOHS Pt»B252 
ICOMT ailtlli 
HOMY BoBllJ 
ICPET i"B0273 
ICRL? PBB2B7 

IC.WE2 BBB274 
ICWE6 088275 
ICYC? BBB214 

iuou* BB?m 



IUOP* B«)B246 
IDRI BOB077 



ient? Boeaii 

IfcRCK 00UIB6 
IERME PBBB74 



IfcRR BB0104 



IERR? BB8215 
IFNTB BO0242 
IFOwL 8B8232 



15/42 


15/54 












32/57 


65/03 












IB/He 


75/51 












11/22 


74/45 












17/57 


73/55 












34/14 


34/3B 


34/37 


34/38 


34/43 






34/13 


34/29 


34/44 


34/45 


34/58 






84/13 


96/39 


180/68 










9/B4 


9/34 












9/4? 


47/56 


48/B7 










9/39 


47/58 












9/60 


41/29 


41/48 


41/45 








a/K6 


11/32 


11/42 


11/43 


11/47 


11/48 


19/26 


19/44 


19/46 


19/56 


23/28 


25/18 


27/3B 


29/13 


36/19 


47/60 


54/B7 


58/31 


58/41 


56/48 




9/43 


42/51 


42/55 










9/44 


42/68 












9/46 


43/BJ 












9/4t> 


42/44 


42/48 


42/59 


43/16 


68/13 




8/43 


42/2B 












6/44 


42/3B 












1B/B2 


34/33 


36/311 










9/ie 


79/34 


94/25 


95/25 


93/36 


95/46 


96/14 


99/54 














1B/B3 


18/13 












10/84 
9/15 


IB/14 
13/6B 


15/59 


18/18 


28/59 


24/07 


25/56 


2B/B1 


29/43 


38/38 


33/82 


34/53 


36/58 


39/54 


8/42 


13/33 


13/46 


15/3B 


17/25 


17/45 


17/51 


17/68 


19/37 


19/46 


19/48 


19/54 


28/81 


28/13 


23/21 


23/26 


23/3B 


25/27 


25/42 


27/31 


27/35 


27/38 


29/14 


29/23 


32/25 


32/28 


34/17 


38/18 


38/2B 


38/25 


45/22 


51/14 


51/39 


51/42 


52/88 


52/16 


52/19 


52/36 


53/52 


54/88 


54/11 


54/14 


5S/43 


56/6B 


77/27 


77/31 








9/41 
6/32 


58/17 
13/45 


17/44 


19/53 


23/25 


27/34 


29/22 


45/21 


51/38 


52/14 


32/32 


53/21 


53/25 


56/59 


77/26 
9/14 


13/29 


15/32 


17/21 


19/21 


23/15 


25/15 


27/23 


29/88 


38/25 


32/88 


34/88 


36/87 


36/23 


38/88 
6/39 


11/4B 


13/53 


28/56 


24/83 


25/23 


27/48 


27/58 


34/32 


36/29 


58/46 


58/53 


77/51 




6/29 


13/39 


13/55 


(5/58 


13/34 


17/34 


17/36 


18/85 


20/07 


20/30 


28/38 


23/51 


25/31 


25/48 


27/45 


29/35 


29/38 


32/37 


32/41 


32/56 


34/24 


38/32 


46/22 


51/27 


52/26 


54/26 


56/25 


56/48 


59/41 


61/16 


61/23 


61/38 


61/37 


61/44 


61/51 


62/07 


77/49 


77/53 










fl/37 


13/57 


15/52 


15/56 


17/38 


17/58 


18/87 


20/89 


2P/26 


28/33 


28/48 


2B/44 


28/49 


23/37 


23/42 


23/45 


25/34 


25/58 


27/47 


27/52 


29/27 


29/4B 


32/39 


32/44 


32/58 


34/26 


38/34 


52/28 


54/28 


56/27 


59/58 


59/59 


62/85 


62/89 


77/55 


9/16 














9/37 


44/16 












9/29 


60/21 
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IFUNX BBB241 

IFWAS 005135 

16000 88825.3 

IGOUS 080234 

IINP 0B02Z8 

IINPt BO02B6 

IIODT 000221 

IITK BB8873 



ILE1 


B01225 


ILE2 


PB1231 


ILE5 


801233 


1LE6 


881246 


ILEB 


881254 


ILFUN 


888148 


1ULFC 


888263 


IHESS 


888118 


IKES? 


080107 


IN0? 


006414 


INI? 


886581 


1M?B 


006403 


IN172 


8*6622 


INI?3 


886484 


INl?S 


886623 


IN2? 


886586 


IN3? 


886618 


IN373 


886483 


1N4? 


886547 


INS? 


086431 


IN67 


886445 



IN678 8B6621 
INBJA 0B6604 

INB7I 006605 
INL7K 006607 
1NM7 886523 
1NP7I 886486 
INP7J 08641B 
INP7R 886682 

INK? 886447 
iNSfcR 881454 
INS? 886686 
INS7B 886576 
INS?1 886577 
IN872 BB668B 
INS73 886681 
INS?* 886575 
INS7V 886555 
INT? eB6374 
INT7E 8B6477 
IPOC? 888218 
IPIBG 088381 
IPOC? 888211 



9/36 
23/52 
9/46 
9/47 
9/19 
9/09 
59/02 
9/28 
6/28 
59/16 
23/34 
23/41 
23/46 
23/36 
23/58 
7/35 
9/56 
6/41 
13/28 
47/85 
76/59 
6/48 
93/52 
94/86 
93/44 
95/30 
93/43 
95/21 
95/89 
95/87 
93/42 
94/16 
94/87 
94/15 
95/83 
96/23 
188/54 
96/24 
93/51 
93/25 
93/46 
9/19 
93/46 
99/39 
93/56 
29/16 
94/20 
94/47 
94/46 
94/49 
93/59 
96/16 
93/50 
87/37 
93/49 
9/11 
1B/8B 
9/12 



44/13 

74/17 

42/36 

42/49 

68/89 

36/15 

79/17 

60/26 

11/37 

59/57 

23/48 

23/45 

24/04 

23/39 

23/55 

23/24 

61/53 

11/11 

41/41 

52/47 

77/83 

81/21 

95/53 

95/82 

94/16 

96/41 

94/89 

96/42 

95/15 

95/12 

94/83 

93/28 

94/20 

96/48 
99/46 

99/44 
95/47 
95/35 

93/4B 
93/48 
181/05 
94/23 
29/32 
96/25 
95/56 
95/57 
95/58 
94/50 
99/88 
95/56 
90/16 
94/57 
79/41 
38/12 
61/26 



44/36 43/13 
42/45 



43/05 
81/10 



23/48 
61/06 



23/44 
23/56 
23/36 
77/17 
11/16 
42/09 
62/81 
77/87 
61/49 



181/88 

181/89 
93/23 
96/26 



101/18 
99/51 



180/45 
93/38 



94/22 



96/17 
96/16 

98/19 
96/28 
188/17 
99/36 
94/26 
95/60 
95/27 



45/26 



34/18 
61/58 



23/47 

24/85 



11/21 
44/88 
62/16 
77/11 
81/52 



95/47 96/36 



93/49 99/17 



46/14 52/84 38/39 



34/34 
77/41 



23/59 



U/55 
43/84 
82/31 
77/15 
99/24 



36/31 46/15 



11/68 
46/82 
76/53 

99/37 



13/16 
46/49 
76/55 



99/52 106/37 186/43 188/44 



93/26 96/29 



94/53 96/21 99/35 99/38 



99/28 99/33 108/32 



188/33 
96/12 



95/48 99/84 



81/28 61/38 81/32 81/35 188/29 
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19/3S 



23/23 



81/34 



IRBUF 000132 7/28 36/18 58/47 59/03 

iread 000103 e/36 11/33 an/is 25/38 34/28 36/2!i 58/49 

IKITE 000102 8/35 23/20 58/43 

IRPRE 000075 6/30 19/36 51/13 53/51 

ISEAK 000100 6/33 15/34 15/43 23/17 27/27 29/111 43/31 
33/47 

ISEUE 000256 6/03 9/49 12/18 14/10 18/10 18/1SI 22/08 

24/16 26/05 28/10 29/52 31/08 33/11 35/02 

37/07 40/03 

ISET 0140101 8/34 11/30 13/49 15/37 15/46 

32/59 53/50 58/57 

ISTAR 0100217 9/03 s/i), 

ISUM 000222 9/21 60/28 

ITEIP 000277 10/06 60/24 

ITET 000247 9/42 13/59 15/58 18/09 20/5B 24/06 25/55 

... „ 2'/«B 29/42 30/29 33/01 34/52 36/57 39/53 

ITIME 00B105 6/36 13/48 17/47 23/28 27/3/ 29/28 32/27 

38/22 61/41 52/18 52/38 54/13 57/02 77/30 

ITIN7 000130 7/27 11/13 11/18 11/23 11/57 12/08 42/12 

42/34 42/43 42/47 42/58 44/21 44/25 44/28 

44/33 45/06 46/51 47/07 

IT0U7 006772 99/58 101/15 

ITPS? 006500 94/58 95/33 95/42 99/07 

I1R7 0B5612 78/53 79/02 79/23 79/39 80/26 

ITR7C ("05615 78/5/ 79/36 79/49 80/29 81/11 

ITR7R 005614 6/28 78/56 79/20 79/50 80/28 81/18 

ITR7T 005613 78/54 79/03 79/18 79/24 80/27 

ITYP? 01(10216 9/17 94/10 94/12 1*5/02 

IWBUF 000133 7/30 11/31 U/41 19/24 25/17 47/59 3B/30 

56/40 59/05 

II.CP2 00012/ 7/26 19/29 43/33 43/35 

IWCPA 000131 7/28 30/27 47/27 47/31 

IWRSE 000076 6/31 25/19 58/42 

IZOC? 000212 9/13 13/19 13/27 23/57 41/44 46/05 46/28 

52/50 76/58 77/02 77/06 77/10 77/14 77/16 

81/24 99/40 100/24 

K1070 005625 79/37 80/37 

K127 006050 84/46 84/50 65/47 

K15? 006051 64/46 84/51 

KDD ("40227 9/26 11/44 

KUS 0B0230 9/27 11/49 

LDWKO H00J02 10/09 38/24 38/27 38/40 

LOOPS 000167 MC 11/01 13/58 15/57 19/08 20/57 24/05 25/54 

27/59 29/41 30/28 32/80 34/61 36/56 39/52 

IU07R 005611 78/50 78/60 79/04 79/19 79/54 80/25 

LU07T CjM5/40 81/50 82/20 

L0P7E 005616 79/16 79/22 79/55 80/30 

LP1 002551 46/49 46/52 47/20 

LP2 002571 47/05 47/08 

LP3 002612 47/04 47/22 

LP4 002601 47/13 47/32 

LP5 0026B7 46/57 47/19 
LP6 002553 46/51 

LP7 002562 46/58 47/21 

LPLP1 002016 38/20 38/41 

LPLP? 002036 38/31 38/36 

LPLP3 002146 38/35 38/38 39/52 

LPLP4 002041 38/37 38/39 
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LPNM 000300 
LSOK 004214 
MAK1 001485 
MAK2 001455 
MAK3 001462 
MAM 001464 
M0V71 005626 
MUV72 0to5366 
MDV73 005575 
M0V74 005602 
MUV75 005623 
MfcSSR 003673 
MES7M 005773 
«I£S7S 005765 
MkNb 005242 
MKTT 005214 
MORE 001354 
MOVME 002767 
MUL7 005377 
MUL7A 005600 
MVHUI 003012 
M1071 006625 
NEWT 000050 MC 



10/07 12/07 41/08 46/32 46/53 47/82 47/14 

12/01 66/32 

29/31 29/41 

29/32 29/33 

29/34 29/38 

29/37 29/40 

80/02 80/17 80/38 

60/04 80/09 

79/60 60/11 

80/18 80/22 

79/58 60/01 80/12 80/16 80/24 80/35 

62/30 62/32 

83/40 83/4/ 

6/40 6/41 83/34 

29/36 75/29 

29/39 75/04 

27/30 27/44 

51/35 51/5T 

79/38 80/14 

80/16 

51/37 51/55 

99/06 100/32 

6/03 12/17 14/04 16/04 18/13 22/82 24/10 

25/59 28/04 89/46 31/02 33/05 34/56 37/01 

39/57 

NEWTS 000000 MC 6/03 12/17 13/86 14/04 15/06 16/84 17/06 

18/13 19/06 122/02 23/06 24/10 25/06 25/59 

27/06 28/04 29/06 29/46 30/06 31/02 32/06 

33/05 34/01: 34/56 36/06 37/01 38/06 39/57 

41/06 

NEXT 002232 42/12 42/lM 42/33 

NOEX 002304 42/50 42/35 

NC1FUN 000243 9/38 44/30 

NOPRT 003674 62/28 62/33 

NUDtV 000234 9/31 11/10 H/27 32/18 36/12 41/26 47/24 

47/26 

NUMU 003761 11/12 63/57 

01 003533 60/15 60/26 

00172 006622 100/02 101/011 

00175 005623 100/04 101/09 

00670 006621 99/18 101/10 

DD77 006757 99/12 100/16 ID1/U 

0QA7 006626 99/07 100/3/1 

0DA7C 006624 99/04 100/20 

00A7L 006727 99/14 100/26 
QUB7E 006753 100/52 

UDB7P 006667 99/48 100/5] 

U007B 006664 99/44 100/59 

0UI7N 006773 100/49 101/16 

0UL7C 006715 99/20 100/14 

0DL7T 006771 99/55 100/07 100/27 101/14 

0007C 006/57 100/42 100/57 

0U07F 006770 100/46 101/li! 

0DP7C 006635 99/16 101/0* 

0DR7T 006636 99/17 101/06 

0UT71 006660 99/39 100/5t> 
0DT7I 006650 99/28 

0DT7J 006653 9/20 99/3S 



0111 


hPYOI 
















0DT7P 


006775 


99/38 


1B1/16 












0DK7T 


0DS674 


89/23 


99/26 


99/43 


99/34 


188/11 


188/38 




C1NEZ 


000133 


7/4b 


29/18 












OVEK 


enitli 


51/23 


51/33 


51/58 


52/29 








P1777 


006375 


87/35 


87/58 


89/37 


98/18 


93/53 






P3777 


M«(ll 


83/39 


84/194 












PAr.718 


»61<» 


66/25 


86/48 


86/56 










PAC71 


t>esi4i 


88/26 


86/41 


86/37 


88/57 


88/59 


89/32 




PAC72 


0H6142 


86/27 


86/42 


86/58 










PAEX 


PH227«l 


42/40 


42/43 












PASS 


flrfBajtj 


9/06 


12/13 


36/89 


41/31 


41/43 


46/58 


78/58 


PASST 


U00240 


9/35 


41/18 


41/28 


41/38 








PATRK 


a«i»i54 


7/47 














PC170 


roei4b 


B5/32 


86/38 












PC171 


000012 


84/05 


84/14 


86/18 










PC172 


006376 


88/43 


89/24 


89/54 


98/19 


94/81 






PC175 


006377 


88/03 


89/51 


89/37 


98/28 


93/55 






PiAin 


V062S0 


87/30 


87/88 


88/14 


89/41 








IPC67B 


006144 


85/30 


86/81 


86/29 


87/24 








PC77 


FB6041 


84/22 


84/32 












PCR7V 


006137 


86/24 


86/44 


86/54 










POC71 


006101 


85/33 


85/49 












PDC72 


006077 


85/43 


85/47 












P0C7S 


CIH6I964 


9/11 


85/34 












PDE7C 


006074 


85/44 














PtX7T 


f me«iP5 


83/50 














PLBQN 


/t-2044 


10/08 


38/44 












PtNK 


i» .14252 


38/33 


67/82 












PLP7T 


f.06222 


87/45 


87/58 












PLS7T 


(*«6BB4 


83/49 


84/49 


66/21 










P0C7T 


i'b6Bl56 


9/12 


85/28 












PSP7 


006007 


84/82 


85/41 


86/28 










PTE1 


P00276 


10/05 


13/28 


15/31 


17/28 


19/2B 


23/14 


25/14 






27/22 


29/87 


38/24 


32/87 


34/87 


36/22 


38/87 


PTST» 


002500 


10/05 


45/57 












RBUF 


P07377 


7/29 


182/83 












RbUF D 


PB7777 


102/04 














RtOUN 


n*)012b 


7/25 


10/12 


13/32 


13/37 


17/24 


17/31 


17/42 






17/48 


19/34 


19/37 


28/28 


32/15 


32/35 


32/49 






34/16 


34/22 


36/11 


38/36 


44/12 


44/24 


44/41 






52/B6 


52/24 


53/14 


53/42 


54/24 






RDCfcR 


B0371O 


59/42 


63/22 












RDPA 


BBB144 


7/39 


29/21 


36/58 










RbPAF 


004765 


52/48 


72/33 












REDFU 


P00142 


7/37 


27/33 


53/24 










REED 


003221 


6/36 


53/11 












REENT 


003172 


54/87 


54/23 












REET 


000223 


9/24 


46/12 


46/34 


46/39 


46/42 


46/48 


47/17 






47/18 


77/22 


77/38 


77/48 


77/58 






RES7T 


000571 


12/85 


96/25 












RET 


800223 


9/22 


43/13 


43/17 


43/19 


43/22 


43/23 


43/24 






45/57 


46/81 


46/86 


47/55 


48/13 


56/88 


56/21 






56/29 


56/38 


58/37 


56/36 


60/88 


68/25 


68/27 






68/29 


68/35 


68/48 










RITFU 


000135 


7/32 


53/22 


33/26 


53/34 


53/37 


53/44 




RPRE 


003322 


6/38 


56/56 












RSEC 

RST7R 


003486 

006156 


58/16 
83/58 


58/26 
86/34 


38/31 
89/84 


38/58 


59/22 


59/29 


59/49 



8112 FPTDI 
RTNH P000S7 
RTN7A 006130 

RTN7N 888071 

RTRK 003405 
RtKCP 888872 

RT7N 000070 

RU87 00.6164 
R7TN 088226 
SI 083535 
SAV7E 006150 

SCRA1 003004 
SCRAP 003006 
SEAER 004643 
SEAK 082742 
SEAK2 083833 
SEAK4 003821 
SEAK5 003020 
SEAK6 003060 
SEAK7 003(153 
SEAK8 003065 
SEAK9 802766 
SEAKS 003100 
SECCC 803480 
StCEC 808114 
SECS 003242 
SECT1 001400 
SECTO 803284 
SECTS 000120 
SECN 003213 
SECxS 004235 
SEQER 003657 
StRCH 082244 
SERCT 808262 
SERVS 003511 
SET2 005444 
SET3 005462 
SET4 005464 
SETCW 084753 
SETDC 004702 
SETEL 005423 
SETER 004665 
SET1L 005004 
SETSE 083028 
SETTL 008141 
SETnF 884741 
SPT7G 886010 
START 800580 
S1AT1 800656 
STA12 000644 
STAT3 000631 
STAT4 000661 



6/24 

62/10 

83/34 

85/35 

89/16 

6/26 

55/19 

58/15 

6/27 

58/55 

6/25 

54/22 

87/16 

9/25 

68/12 

83/33 

89/11 

51/46 

51/47 

62/17 

6/33 

52/13 

51/31 

51/21 

52/36 

52/12 

52/35 

51/26 

52/44 

58/14 

6/45 

55/17 

27/42 

27/86 

7/19 

54/06 

27/46 

9/49 

42/22 

9/5-3 

9/89 

77/34 

77/45 

77/43 

61/38 

61/31 

6/34 

61/17 

61/52 

61/45 

7/36 

61/24 

84/83 

6/83 

13/52 

13/36 

13/33 

13/54 



44/53 58/36 



57/03 61/07 62/86 82/13 



B3/36 
B5/37 
89/20 
53/11 
53/31 
38/22 
38/06 
59/17 
53/12 
54/31 
89/48 
51/11 
68/28 
84/45 
89/17 
51/49 
51/31 
71/11 
51/11 
52/25 
52/03 
52/02 
52/40 
52/23 
52/41 
51/34 
52/32 
58/25 
61/46 
53/28 
27/38 
53/48 
19/38 
34/24 
66/49 
62/15 
42/27 
27/26 
68/08 
77/39 
77/33 
77/32 
72/23 
71/42 
77/22 
71/29 
72/48 
72/60 
13/44 
72/13 
83/49 
9/18 
13/55 
13/44 
13/38 
13/58 



83/37 
83/44 



58/38 
58/19 
59/39 
83/27 



38/43 
53/39 



53/36 

34/39 



77/33 
77/12 
77/88 
77/48 
78/68 
77/16 

17/43 
77/84 
88/17 
11/08 



83/31 
88/23 



84/44 
86/45 



85/24 
89/86 



58/68 
38/28 
60/01 
33/28 



39/32 
38/23 



59/38 
58/24 



52/07 52/33 52/39 
52/30 



59/21 59/23 39/20 



33/57 
38/44 



33/60 
39/24 



85/28 
89/10 



55/12 55/13 33/15 85/16 55/18 



59/48 
56/28 



33/38 53/39 34/16 



51/28 51/38 51/39 32/01 52/48 

83/25 83/29 65/36 83/45 86/48 
89/21 

52/31 

31/34 52/37 



54/01 34/17 



32/21 34/06 77/25 



11/14 U/19 11/24 



0113 FPTDI 










S1AT5 000660 


13/43 


13/57 






STATS 000624 


13/15 


13/28 


47/33 


47/36 


STA?T 006603 


94/33 


94/45 


94/51 


96/10 96/22 


S1EPI 000146 


7/41 


51/34 


52/30 




siepo 000143 


7/40 


51/55 


32/13 




ST0?P 005753 


81/53 


82/31 






SUMMD 00532.1 


76/15 


76/54 






SUHMt B05367 


9/21 


76/52 






ShWts pn(l2(ia 


9/08 


13/12 


41/37 


45/58 46/18 52/52 79/25 




79/52 


81/36 


81/46 


81/55 81/37 87/41 94/19 




94/27 


94/32 


95/37 


96/30 96/33 


T»C?m 006245 


87/29 


87/32 


88/06 


88/10 


TET 002512 


9/42 


46/12 






TtTl 002533 


46/26 


46/29 






TtT2 002536 


46/17 


46/21 


46/30 


46/32 


TtTLP 002550 


10/06 


46/48 






TtTMX 0003P4 


10/11 


46/55 






TETNM 005362 


46/03 


46/23 


46/50 


76/46 


TIME 003257 


6/38 


34/06 


56/08 




TIHEH 000125 


7/24 


56/12 


36/23 




TIM1T 000224 


9/23 


77/24 


77/39 




TIN? J 0064P0 


89/59 


90/21 






T1N12 006401 


89/45 


90/22 






TIN?C 0(96251 


88/43 


89/53 


89/38 




TIN?0 006307 


89/20 








TIN7M 006345 


69/51 








T1N7N 006355 


89/56 


89/59 






T1N70 0063<»3 


7/27 


89/16 






TIN70 886312 


89/19 


89/23 






TIN?K 806254 


87/17 


88/46 


90/02 




TINTS 006317 


89/29 


89/44 






TIN?* 006323 


87/27 


89/03 


89/33 


90/14 


T1N7X 006253 


88/45 


89/31 


89/47 




TIN?Z 006313 


89/15 


89/24 






TMP? 006147 


8S/55 


86/08 


86/32 




TNI 00066b 


14/06 


14/08 






TdlB 001472 


29/48 


29/50 






TM1 001511 


31/04 


31/06 






TN12 701610 


33/07 


33/09 






TN13 001677 


34/58 


34/60 






TN14 001773 


37/03 


37/05 






TM5 002153 


39/59 


40/01 






TN2 000733 


16/06 


16/08 






TN3 001024 


18/15 


18/17 






TN4 001167 


22/04 


22/06 






TN5 001261 


24/12 


24/14 






TN6 001336 


26/01 


26/03 






TN7 001415 


26/06 


28/08 






T0D7T 006275 


89/10 


101/15 






TPR7T 006231 


87/53 


87/58 






TPS?P 006200 


84/20 


87/29 


94/38 




TP?? 006774 


99/25 


101/17 






TKACC 003377 


58/13 


58/21 


58/44 


59/30 59/31 39/37 


TRACK 003150 


53/29 


53/48 


34/25 




TKAKS 003241 


55/14 


55/27 






T5I? 006256 


8B/48 


89/50 






TST1 000603 


12/16 


13/05 






TST10 001422 


29/05 


47/43 







0114 FPYOI 
















TSTU 


001477 


30/05 


47/44 












TST12 


001516 


32/05 


47/49 












TST13 


001615 


34/05 


47/46 












TSTU 


001704 


38/05 


47/47 












TST15 


002000 


38/03 


47/4H 












TST16 


002160 


41/05 














T5T2 


000673 


15/05 


47/37 












TST3 


000/40 


17/06 


47/38 












TST4 


001031 


19/05 


47/39 












TST5 


001 174 


23/05 


47/40 












TST6 


001266 


25/05 


47/41, 












T8T7 


001343 


27/05 


47/42 












TSTbL 


002624 


46/35 


47/13 


47/34 










TiTbO 


002625 


47/34 


47/35 












TSTNM 


000136 


6/03 


7/33 


1.2/14 


12/18 


13/03 


14/07 


13/05 






16/07 


17/05 


1.8/16 


19/05 


22/03 


23/03 


24/13 






25/05 


26/02 


27/03 


28/07 


29/05 


29/49 


30/05 






31/05 


32/06 


33/08 


34/05 


34/59 


36/03 


37/14 






38/05 


39/6H 


41/03 


41/11 


46/04 


46/27 


46/34 


TT»? 


006216 


87/46 














TtFH 


003731 


44/10 


63/33 












TTP7E 


006203 


9/17 


84/18 


84/47 


S7/26 


67/32 


68/44 


89/36 


TYP7R 


006246 


87/34 


88/07 


M/ll 










UNIT0 


002257 


42/15 


42/34 












UNIT1 


002266 


42/38 


42/41 












UNIT* 


000261 


9/52 


11/15 


13/18 


56/13 


80/47 






UPOAT 


003436 


59/13 














HCPA1 


003360 


58/29 














MCPA2 


003346 


7/26 


58/19 












<ICPA3 


003466 


59/20 


59/39 












HCPA4 


003510 


59/45 


60/01 












NCPAA 


003371 


58/10 


58/18 


96/38 


59/26 


59/35 






"CPAT 


003332 


7/28 


38/06 












HHDR 


005150 


Ll/17 


45/05 


47/06 


74/28 








4ITFU 


000143 


7/38 


19/32 


93/20 










"PAT 


000263 


9/54 


19/26 


42/46 


58/29 








4KDK 


000564 


11/46 


11/31 


11/60 










WRDK3 


000526 


11/26 


11/30 


12/03 


12/04 








*KDH4 


000525 


11/29 














XKOKf 


000557 


11/39 


11/55 


11/38 










4NFLC 


000266 


9/57 


61/25 


77/03 










4HPR0 


005032 


42/02 


73/10 












4RSE1 


003321 


56/47 


56/50 












UNSET 


003304 


6/31 


56/37 












ZBCTT 


006052 


9/13 


85/24 












ZP07T 


006061 


H5/27 


83/31 












ZSU7P 


006247 


85/54 
89/29 


85/56 
90/03 


86/04 


88/13 


88/48 


88/52 


89/28 


,HT?N 


1005624 


80/36 


81/08 


81/33 


81/48 


81/31 


82/03 




?A 


000017 


6/03 


12/17 


12/18 


13/06 


14/04 


14/195 


13/06 






16/04 


16/05 


17/06 


18/13 


18/14 


19/06 


22/02 






22/03 


23/06 


24/10 


24/11 


25/06 


23/59 


23/60 






27/06 


28/04 


28/05 


29/06 


29/46 


29/47 


30/06 






.11/02 


31/03 


32/06 


33/03 


33/06 


34/1)6 


34/56 






34/57 

41/06 
6/03 


36/06 


37/01 


37/02 


38/06 


39/37 


39/38 


?b 


00002>J 


13/06 


15/06 


17/06 


19/06 


23/06 


25/06 






i'7/06 


29/06 


30/06 


32/06 


34/06 


36/06 


38/06 



0115 FPYDI 



41/96 



